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PREFACE 


FOCAL (Formula CALculator) XVM (FOCAL) is an interactive utility pro- 
gram designed to solve numerical problems of any complexity. FOCAL 
is a component of the XVM/DOS software system. 

This manual is designed to allow the reader to master and apply the 
FOCAL language within hours. 

Chapters 1 through 3 of this manual describe the structure and use of 
the FOCAL language (particularly in the formulation and solution of 
numeric problems) . 

Chapter 4 contains demonstration programs which illustrate the many 
features and applications of FOCAL. The reader, by running these pro 
grams using different variables, can more fully realize the power and 
flexibility of FOCAL. 

Chapters 5 and 6 describe advanced user-library storage and retrieval 
functions and user-defined FOCAL functions. The FOCAL library func- 
tions permit the storage of lengthy programs by the use of "chaining. 
User defined functions enable frequently used operations to be called 
(requested and performed) by a single command. 

Chapter 7 describes FOCAL data functions which permit the user to 
store and then retrieve data on auxiliary Input/Output devices other 
than the console terminal. 




CHAPTER 1 

INTRODUCTION TO FOCAL 


FOCAL is an on-line, interpretive service program designed to assist 
scientists, engineers, and students in solving complex numerical pro- 
blems. The language consists of concise, imperative statements; 
mathematical expressions are typed in standard notation. 

FOCAL puts the full calculating power and speed of the computer at: the 
user's fingertips. With FOCAL, the user can easily generate mathe- 
matical models, plot curves, solve sets of simultaneous equations in 
n-dimensional arrays, and much more. Examples of various problems 
that FOCAL is capable of solving are described in Chapter 4. 

1.1 HARDWARE REQUIREMENTS 

FOCAL can be run on any XVM or PDP-15 computer which runs XVM/DOS soft- 
ware. 

1 . 2 LOADING PROCEDURE 

FOCAL may be loaded with the Linking Loader after XVM/DOS has been 
loaded. 

After the bootstrap is loaded XVM/DOS types 

XVM/DOS Vnxnnn 

$ 

at the left margin of the console terminal. 

The Linking Loader requires assignment of .DAT (Device Assignment) 
Table) slots -1 and -4. FOCAL requires assignment of .DAT slots +3, 

+7 (input) and +5, +10 (output). (.DAT slot assignments for FOCAL are 
summarized in Appendix E.) An example of the required ASSIGN command 
is : 

$A DPO -1,-4, < SCR > 3,5,7,10 _/ 

On the device assigned to .DAT -1, the Linking Loader, expects to find 
the System Library. 1 On the device assigned to .DAT slot -4, the 
Linking Loader expects to find the relocatable binary program, FOCAL 
BIN and its external function file, FNEW BIN. 


The user should be careful to use the non-floating point FORTRAN 
library. If FOCAL is to be used on a system with floating point 
hardware, the user should rename the non-floating point library to 
. LIBR5 BIN and assign .DAT -5 to the UIC containing . LIBR5 BIN. 
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FOCAL uses .DAT slot +3 for the library input function and .DAT slot 
+5 for the library output function (see Chapter 5 for FOCAL library 
commands) . FOCAL uses .DAT slot +7 for DATA input function and .DAT 
slot +10 for DATA output function. (Refer to Chapter 7 for detailed 
information about the DATA commands.) 

An example for loading FOCAL follows. 

After the .DAT slots are assigned as above, XVM/DOS types another $. 
Now type 

$GLOAD 

and depress the RETURN key. The Loader types 

LOADER XVM Vnxnnn or BLOADER XVM Vnxnnn 

Now type a P, a back arrow (P+-) , FOCAL, a comma and FNEW after the 
Loader ' s > , 

>P *- FOCAL, FNEW 

and depress the ALT MODE key. 

Teleprinter output format is as follows: 

XVM/DOS V1A000 
$ A RK <SCR> ~4*~1 , 3 r 5 r 7 j 1 0 

$GL0AD 


BLOADER XVM V1A000 
>P_FC)CAL * FNEW 


p 

FOCAL. 

028 

071742 

p 

FNEW 

004 

071527 

p 

.BH 

005 

071473 

p 

DSQRT 

007 

071402 

p 

DSTN 

001 

071367 

p 

DCOS 

002 

071346 

p 

DAT AN 

001 

071.333 

p 

DEXP 

001 

071320 

p 

DL.0G 

004 

071272 

p 

. DD 

006 

071124 

p 

, D8 

004 

071004 

p 

.HE 

003 

070703 

p 

,DF 

001 

070544 

p 

.DC 

001 

070475 

p 

.DA 

012 

070420 

p 

. CAT1 

000 

070353 

p 

DOUBLE 

004 

0701.50 

p 

EE LEAF 

10P 

067051 

p 

.CB 

004 

067027 


B FOCAL XVM VI A 000 


1 . 3 RESTART PROCEDURE 

Restart is accomplished by the use of CTRL P (echoes TP). However 
this may not work if it is typed while output is underway to the tele- 
printer . 
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1.4 SAVING FOCAL PROGRAMS (Refer to Chapter 5 for full description) 

To save the current FOCAL program, type the following sequence of 
commands; where necessary, wait for FOCAL to type an * on the next 
line. 

♦ 

♦LIBRARY OUT NAME! 

♦LIBRARY WRITE 'ERASE ALL 
♦LIBRARY WRITE ALL 
♦LIBRARY WRITE “♦ 

♦LIBRARY CLOSE 
♦ 

This sequence does not destroy the current program. Execute an ERASE 
ALL before starting the program to clear all variables and prevent 
placing previous programs in the library along with the current pro- 
gram during current library storage (refer to Sections 3.5 and 5.4.2). 
When a program is to be saved, Loader assignment must be to the proper 
output device. The assignment described in Section 1.2 will output the 
program on DECtape. 

To load a saved FOCAL program, type: 

♦library in name 

1.5 DATA INPUT/OUTPUT (Refer to Chapter 7 for full description) 

To use auxiliary I/O devices for data storage and retrieval, type the 
following sequence of commands: 

♦DATA OUT NAME 
♦DATA CLOSE 

♦data in name 

This sequence will initialize and enter the named file for the data on 
a mass storage device, close the named file on that device, and then 
initialize a device under the given filename for data retrieval. 




CHAPTER 2 
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After FOCAL has been loaded, the program types out 

FOCAL XVM Vnxnnn 
* 

to indicate that it is ready to accept commands from the user. Each 
time the user terminates a typed line by depressing the RETURN key, or 
after FOCAL has performed a command, an * (asterisk) is typed to tell 
the user that FOCAL is ready for another command. 

2.1 ELEMENTARY COMMANDS 

One of the most useful commands in the FOCAL language is TYPE ^ which 
instructs FOCAL to "type out the result of the following expression." 
Then, the user types an expression after TYPE (following the asterisk 
which FOCAL typed) such as 

*TYPE 123.456+9.8765 

and presses the RETURN key; FOCAL types the answer. 

133.3325* 

SET is another useful command, which instructs FOCAL to "store this 
symbol and its numerical value; then when this symbol is used in an 
expression, insert the numerical value." Thus, the user may type 

*SET A=3. 141592; SET B=23.572; SET C=485.5 

and then use these symbols to identify the values defined in the SET 
command . 

*TYPE A+B+C 
512.2136* 

Symbols may consist of one, two, or three alphanumeric characters. 

The first character must be a letter, but must not be the letter F 
which refers to function names (Refer to Section 3.16). 


Any number appearing in a TYPE command must have its magnitude repre- 
sented in 35 bits of mantissa, otherwise, FOCAL will type the ?27 
error message and ignore your request. This error message will occur 
with an 11 or 12 digit or longer number, depending on the magnitude 
of the number. The same is applicable for the ASK command. 
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FOCAL always checks user input for syntax errors (e.g., invalid com- 
mands, illegal formats, etc.). When an error is detected, FOCAL types 
an error message in the form of a question mark and code number to 
indicate the type of error. In the following example, 

* 

* 

.[•■HELP 

?10 

JKTYPE 2++4 

?21 

HELP is not a valid command and two plus signs (double operators) is 
an illegal operation. The complete list of error messages and meanings 
is given in Appendix B. 

2 . 2 OUTPUT FORMAT 

The FOCAL program is originally set to produce results showing up to 
eight digits, four to the left of the decimal point (the integer part) 
and four to the right of the decimal point (the fractional part) . 
Leading zeros are suppressed, and spaces are shown instead. Trailing 
zeroes are included in the output to the limits of the format, as 
shown in the examples below. 

*SET A ==77.77 5 SET 8=111111.11115 SET C=39 
*TYF'E A * B * C 

77.7700 111111.11 39.0000* 

* 

The output format may be changed if the user types 
* 

*TYPE %x.yz 

where the percent sign (%) is the format operator symbol, x is the 
total number of digits to be output and yz is the number of digits to 
the right of the decimal point. The values x and yz are positive 
integers, and the value of x cannot exceed 63 digits. The value yz is 
always written as a 2 digit number, (e.g., 03). For example, if the 
desired output format is 2 places to the left of the decimal point and 
five to the right, the user types 

* 

*TYPE %7.05* 12.222222+2.37184 

and FOCAL types 

* 

7 1 4 . 59406 * 
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Notice that the format operator (Jfx.yz) must be followed by a comma, 
and that until the user changes the output format all results will be 
typed in the last specified format, i.e. %7.05. 

The results are calculated to nine digits. In some circumstances since 
rounding may place some uncertainty on the 9th place, the user may 
need to account for the rounding. If the user types 

* 

* 

'♦'TYPE 79.04. 1.23456 . 789 
FOCAL types 

1 . 23456 . 789 * 

* 

* 

Of the 9 available digits, priority is given to those to the left of 
the decimal point. 

In the following examples, the number 2848.5363 is typed out in several 
formats . 

t 

sSE: T A= 2848. 5363 
*TYPE 7 7 .03. A 
2848.536* 

♦ TYPE "78.04. A 
2848.5363* 

♦ TYPE 79 . 05 » A 
2848.53630* 

♦ 

If the user does not indicate the number of places in the fractional 
part of the number, only the integer part is printed. 

If the specified output format is too small to contain the integer 

portion of the number, FOCAL converts the number to floating point 

til 

form, O.LE+mn, where E+mn indicates the mn power of 10 of the num- 
ber L printed as a number between 0.0 and 1.0 (refer to Section 2.3) . 

* 

♦ TYPE 7,3. A 
0 . 285E+04* 

* 

If the specified format is larger than the number, FOCAL inserts 
leading spaces up to, but not including, the asterisk column. 

* 

♦TYPE 711. A 
2849* 

* 

Leading blanks and zeros in integers are always ignored by FOCAL, 
except for numbers between 0.0 and 1.0, where a zero precedes the 
decimal point.. 
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* 

* 

*TYPE %8 . 04 > 0016 1 0.016 t . > 00700 

16.0000 0.0160 0.0000 700.0000* 

2.3 FLOATING-POINT FORMAT 

The user may request output in exponential form which is called float- 
ing-point or E format. This notation is frequently used in scientific 
computations and is the format in which FOCAL performs its internal 
computations. The user requests floating-point format by including a 
% followed by a comma in a TYPE command. FOCAL will print out 0, a 
decimal point, a 9-digit number, the letter E, and the number of places 
to move the decimal point for standard notation. Until the user spec- 
ifies another output format, all results are typed out in floating- 
point format. 

For example, 

* 

*TYF'E X,llll 
0.11U00000E+04# 

* 

4 

is interpreted as .1111 times 10 or 1111. Exponents can be used to 

±999. The largest number that FOCAL can handle is +0.999999983 

998 999 

times 10 , and the smallest is -0.999999983 times 10 

If the absolute value of the exponent is 1000 or greater a colon (:) 
will replace the higher order digits of the exponent. (An exponent 
of 1021 comes out as :21) . For example, see the description of FEXP 
in Section 3.16. 

The user should furthermore note that for systems having EAE only 
eight places of accuracy can be guaranteed for numbers larger than 
1.0E43. (In fact, for numbers near 1.0E+998 or 1.0E-999 you only get 
7-place accuracy.) 

To demonstrate the ability of FOCAL to compute large numbers, find the 
value of 449 factorial by typing the following commands: 

#SET A "-l 

*Ft)R I"-:U4495 SET A=A* I 
* TYPE Xy A 
0.3851930 5 2 E +998# 

The FOR statement, which will be explained later, is used to set I 
equal to each integer from 1 to 449. 

2.4 ARITHMETIC OPERATIONS AND SYMBOLS 

FOCAL performs the usual arithmetic operations (addition, subtraction, 
multiplication, division, and exponentiation) . These operations are 
written by using the following symbols: 



fl 




c 


Focal 

Lanquaqe 



SYMBOL MATH 

NOTATION 


FOCAL 

t Exponentiation 

3 3 

3t3 

(Power must be a 
positive integer) 

* Multiplication 

3-3 

3*3 


/ Division 

3t3 

3/3 


+ Addition } equal 

3+3 

3+3 


- Subtraction j priority 

3-3 

3-3 



These operations may be combined into expressions. When FOCAL evalu- 
ates an expression comprising several arithmetic operations, the pri- 
ority follows the above list. 

Note that addition and subtraction have equal priority. Expressions 
with these two operators are evaluated from left to right. 

A+B*C+D is A+(B*C)+D not (A+B) * (C+D) nor (A+B) *C+D 
A*B+C*D is (A*B)+(C*D) not A*(B+C)*D nor (A*B+C) *D 

X / ^ 

X/2*Y is ~~ not I - 

2 12+3 is 4 3 not 2 8 
To perform exponentiation to a negative power, X -A , use FEXP (A*FLOG<X>) . 

Expressions (except IF) to be evaluated by FOCAL may be enclosed in 
any properly paired parentheses, square brackets, or angle brackets. 

The IF statements, however, must be enclosed in parentheses. 

For expressions without IF statements: 

*SET A1 = (A+B) *<M+N>* [X+Y] 

The left bracket ( [) and the right bracket (]) enclosures which do not 
appear on certain teletypewriter keys are typed using the SHIFT and K 
keys and the SHIFT and M keys, respectively. 

For expressions that are nested, FOCAL computes the value of the inner- 
most expression first and then works outward. 

*TYPE %, (2+<3- [l*4]+5 > -2) 

0 . 400000000F+0 1* 

Note that this number is expressed in floating-point format, as spec- 
ified by the unmodified X symbol. 

2.5 ADDITIONAL SYMBOL INFORMATION 

The value of a symbolic name or identifier is not changed until the 
expression to the right of the equal sign is evaluated by FOCAL. 
Therefore, before it is evaluated, the value of a symbolic name or 
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identifier can be changed by retyping the identifier and assigning 
it a new value. 


*SET Al=3 + 2 ; SET Al=Al+l 
*TYPE %2, A1 
10* 

Symbolic names or identifiers must not begin with the letter F. 

(Refer to Section 3.16) 

The user can request FOCAL to type out all user defined identifiers, 
in the order of definition, by typing a dollar sign ($) after a TYPE 
command. (Refer to Section 3.1) 

*TYPE %7 . 2 , $ 

The user's symbol table is typed out in the following manner: 

A <? (? < 0 0 > = 0 . 3 8 5 :l. 9 3 1 E + 9 9 8 

£<(?(? < oo > = mm . :i. 

cei» ( 00 ) = 39.00000 
K0G»(OO) = 0.000000 
ll?<?(00) = 430.0000 
A 1.8 (00)= ,10.00000 
M(?(? ( 00 ) = 0.000000 
888 ( 00 )= 0.000000 
X<?8 (()())= 0.000000 
Y 8 8 ( 0 0 ) = 0.000000 

NOTE 

"A" and "I" defined in a previous example (on page 
2-3) were not erased before going on to the present 
example . 

If an identifier consists of less than three letters, an @ is inserted 
as the second/third character in the symbol table printout, as shown 
in the example above. An identifier may be longer than three char- 
acters, but only the first three are recognized by FOCAL and stored 
in the symbol table. 

2.6 SUBSCRIPTED VARIABLES 

FOCAL always allows identifiers, or variable symbols, to be further 

1 7 

identified by single subscripts in the range ± 131071 (2 -1) , which 

are enclosed in parentheses immediately following the identifier. 

For example, the following identifiers are subscripted: 

A ( I ) B (3) 

A subscript may also be an expression: 

*SET A1 (I+3*J) =2 . 33 
*SET X2 (5+3*J) =8 . 20 


C 


t 


4 
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The ability of FOCAL to compute subscripts is especially useful in 
generating arrays for complex programming problems. A convenient way 
to generate linear subscripts is shown in Section 4.5. 

2.7 THE ERASE COMMAND 

To delete all of the symbolic names which are defined in the symbol 
table, except those in the COMMON area (refer to Section 5.4), type 
ERASE. As FOCAL does not clear the user’s symbol table area in core 
memory when it is first loaded, it is good programming practice to type 
an ERASE command before defining any symbols. 

2.8 HANDLING TEXT OUTPUT 

Text strings are enclosed in quotation marks ("...") and may include 
most teletypewriter printing characters and spaces. The carriage 
return, line feed, and leader-trailer characters are not allowed in 
text strings. To instruct FOCAL to type an automatic carriage return 
line feed at the end of a text string, the user inserts an exclamation 
mark ( ! ) . 

*TYPE" ALPHA" ! "BETA" 1 "GAMMA" ! 

ALPHA 

BETA 

GAMMA 

★ 

If only a carriage return without a line feed is desired at the end of 
a text typeout, the user inserts a number sign (#) . 

*TYPE ! " X Y Z"#" + ="#" /" ! 

X+Y = Z 

* 

The number sign operator is useful in formatting output and in plotting 
another variable along the same coordinate (Refer to Section 4.7). 

2.9 INDIRECT COMMANDS 

Up to this point, only direct commands, executed immediately by FOCAL, 
have been discussed. In contrast, commands may be delayed to alter 
sequences, assign all variables or generate a lengthy program. These 
delayed execution statements are called indirect commands which are 
prefixed by a line number and are stored by FOCAL for later execution, 
usually as part of a sequence of commands. Line numbers must be in the 
range 1.01 to 99.99. The number to the left of the point is called 
the group number; the number to the right is called the step number. 
(The numbers 1.00, 2.00, etc., are illegal line numbers; they are used 
to indicate an entire group of lines.) For example, 
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* 

* 

* era si:: all 

* X . I SET A --3 
*1.-2 SET B-8 
*1.;? TYPE X7t A+B 

* 


To execute indirect commands the user types one of the direct com- 
mands GO, GOTO, and DO. 

The GO command causes FOCAL to go the lowest numbered line to begin 
executing the program. If the user types a direct GO command after 
the indirect commands above, FOCAL will start executing at line 1.1. 

. GO 

:i. 1. * 

The GOTO command causes FOCAL to start the program by executing the 
command at a specified line number. 

♦GOTO 1.2 
1 1 * 

FOCAL started executing the program at line, 1.2 SET B=8, in the above 
example, and then continued to line 1.3. 

The DO command is used to transfer control to a specified step, or 
group of steps, and then return automatically to the command following 
the DO command. 

* 

* ERASE ALL 

*1.1 SET A = 1 i SET B=2 
*1.2 TYPE: “ STARTING " 

*1.3 DO 3.2 

*2.1 TYPE * FINISHED “ 

*3.1 SET A : -3 i SET B = 4 
*3.2 TYPE 7.1 , A+B 
*(30 

STARTING 3 FINISHED 7* 

* 

When the DC command at line 1.3 was reached, the command TYPE %1, A+B 
was performed and then the program returned to line 2.1 and continued 

from there. 

The DO command can also cause FOCAL to jump to a group of commands and 
then return automatically to the normal sequence. 
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* 

♦ERASE ALL 
*1.1 TYPE “ A ‘ 

*1.2 TYPE * B " 

*1.3 TYPE *<:■ 

*1.4 DO 5.0 

*1.5 TYPE ‘ END 1 i GOTO 6.1 
*5.1 TYPE "Dr 
*5.2 TYPE "E* 

*6.1 TYPE ’ 

*GO 

ABODE END .* 

* 

When the DO command at line 1.4 was reached, FOCAL executed the group 5 
lines and then returned to line 1.5. An indirect command, with the 
proper sequential line number, can be inserted in a program at any time 
before the direct execute command. For example, 

* 

♦ERASE ALL 

*4.8 SET A=1 ? SET B=2 
*6.3 TYPE %8 . 3 » B/C+A 
*4,9 SET 0=3.4581 
♦ GO 

1.5783523* 

where line 4.9 will be executed before line 6.3 and after line 4.8. 
FOCAL arranges and executes indirect commands in numerical sequence 
by line number. 

2.10 ERROR DETECTION 

FOCAL checks all input commands for a variety of errors. If an error 
is detected, FOCAL types a question mark, followed by an error code 
and the appropriate line number if the error is in an indirect com- 
mand. A complete list of these error codes is shown in Appendix B. 

The WRITE command without an argument causes FOCAL to print out the 
entire indirect program so that the user may check it for errors. 

The trace feature of FOCAL is valuable in program debugging. Any 
part of an indirect statement or program can be enclosed in question 
marks, and when that part of the program is executed, the portion 
enclosed in question marks will be printed out. If only one question 
mark is inserted the program is printed out from that point until 
completion. The trace feature is also used to follow program control 
and to create special formats (Refer to Section 3.15). 

2.11 CORRECTIONS 

If the user types the wrong character, or several wrong characters, 
the RUBOUT key, which echoes a backslash (\) for each RUBOUT typed, 
is used to delete one character to the left each time the RUBOUT key 
is depressed. 




* 

♦ERASE ALL 

*1*1 RYPEWWTYPE X-Y 
*1.2 SET X=12\3 
* WRITE 

C FOCAL XVM 01 AO 00 
01.10 TYPE X-Y 
01.20 SET X 1 3 

Typing CTRL U (echoes an @) deletes everything which appears to its 
left on the same line. 

*1.3 TYPE A * E< * C® 

♦WRITE 

C FOCAL XOH 01A000 
01.10 TYPE X-Y 
01.20 SET X=13 

A line can be overwritten. Repeat the same line number and type the 
new command. For example, the second instance of line 14.99 replaces 
the first: 

* 

* 

* 

*14.99 SET C9(N+3>=15 
* 

* 

* 

* 

*14.99 TYPE C9/Z5-2 
* WRITE 14.99 
14.99 TYPE C9/Z5-2 

When WRITE is typed after corrections are made, FOCAL will print the 
indirect program as altered. With this feature, commands can be 
checked and a "clean" program printout can be obtained. Remember that 
all indirect input is printed when WRITE is typed. Therefore, it is 
useful to type ERASE ALL at the start of a new sequence. (Refer to 
Chapter 5 for storing programs . ) The ERASE command with an argument 
will delete a line or group of lines. For example, to delete line 
2.21, the user types 

* 

♦ERASE 2,21 
* 


<3 


r 


o 
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To delete all of the lines in group 2, the user types 
* 

♦ERASE 2.0 
♦ 

Used alone, without an argument, the ERASE command causes FOCAL to 
erase the user's entire symbol table. FOCAL does not zero memory 
when loaded; consequently, it is good practice to type ERASE before 
defining symbols. The command ERASE ALL erases all user input, except 
COMMON variables. 

The MODIFY command is another valuable feature. It may be used to 
change any number of characters in a particular line, as explained 
in Section 3.14. 

2.12 ABBREVIATIONS 

All FOCAL commands (except COMMON and DATA) may be abbreviated to the 
first letter of the command. Thus, 

♦TYPE 10» ! 

0. IE +02 

* 

is equivalent to 
♦ 

*T 10, ! 

0. 1E+02 

♦ 

2.13 ALPHANUMERIC NUMBERS (Using Letters as Numbers) 

Numbers must start with a numeral but may contain letters. FOCAL 
interprets as a number any character string beginning with a numeral 
(0 through 9) . An alphanumeric number is a string of alphanumeric 
characters (excluding symbols) which starts with a numeral. For 
example, 

♦ 

♦ 0ABC 23BAT 2836A1 

?02 

Each letter in an alphanumeric number is taken as a number (A through 
Z correspond to 1 through 26, respectively) except for E (which denotes 
exponentiation) . 
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NOTE 

E denotes exponentiation; consequently, the number 5 
cannot be represented in alphanumeric form. 


A=1 J=10 S=19 
B=2 K=1 1 T=20 
C=3 L=1 2 U=21 
D=4 M=1 3 V=22 
E= (exponentiation) N=14 W=23 
F=6 0=15 X=24 
G=7 P=16 Y=25 
H=8 Q=17 Z=26 
1=9 R=18 


An easy way to give FOCAL numerical valued letters is to start the 
number with 0, as in the following example. 

* 

♦ TYPE 7, * OAB 

0. 120000000E+02# 

* 

After 0, A=1 and B=2; thus, 0AB=12. Alphanumeric characters may be 
used in arithmetic operations. 

♦ TYPE 7.i 0AB+0C 
0, 150000000E+02# 

* 

The letter E denotes exponentiation to base 10 when used in a number. 
Alphanumerics after the letter E are taken as the exponent of the 
preceding alphanumerics. 

Only one E is allowed in any one alphanumeric number. 

♦ 

♦ 

♦ TYPE 7.8 t 0AED 

10000 # 

♦TYPE ZB* OS EC 
19000# 

* 

# 

# 

Alphabetic characters may be used when assigning numerical values to 
identifiers or variables in response to an ASK statement (Refer to 
Section 3.9 for a use of this feature and lines 3.20 and 3.30 of 
"Intercept and Plot of Two Functions" in Section 4.7 for an application). 


O 


* 


* 


O 
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CHAPTER 3 
FOCAL COMMANDS 


3 . 1 TYPE 

The TYPE command is used to compute and type out a text string, the 
result of an expression, or the value of an identifier. For example, 

* 

* 

*4.14 TYPE 3.2*6~<36.2*65>/2.348 
*4.15 TYPE 3 "'6+ ( 7 . 23/4 . 2753 ) *73 . 4 

* 

* 

Several expressions can be computed by a single TYPE command; commas 
are used to separate each expression. 

*1.1 TYPE X6 . 03 » Al*2» 2"12» 2.28*83.636 
*DQ 1.1 

0.000 4096.00 190.690* 

* 

* 

* 

The output format (%) can be included in the TYPE statement as shown 
in the example above and as explained in Section 2.2. 

The user may request a typeout of all identifiers which he has defined 
by typing TYPE $ and pressing the RETURN key. This causes FOCAL to 
type out the identifiers with their values, in the order in which they 
were defined. The $ can follow other statements in a TYPE command, 
but must always be the last operation on the line. 

* 

* 

*ERASE ALL 

*SET L=33 5 SET B=22» SET 0=385 
*SET A3=94 . 3 f SET A7T=2.485 
*TYPE %5.03»* 

L.@e(00)= 33.000 
B(?(? ( 00 ) = 22.000 
0@@<00>= 385.00 
A3@ < 00 ) = 94.300 
A7T ( 00 ) = 2.485 

* 
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A text string enclosed in quotation marks can be included in a TYPE 
command, and a carriage return can replace the closing quotation mark: 

* 

* 

♦TYPE "X SQUARED 
X SQUARED* 

* 

A text string or any FOCAL command or group of commands cannot exceed 
the capacity of a teletype line (72 characters for KSR33 Teletype ) . 

A command cannot be continued on the following line. To print out 
extended text, each line must start with a TYPE command. 

FOCAL does not automatically perform a carriage return after executing 
a TYPE command. To insert carriage return-line feed characters type 
an exclamation mark (!). To insert a carriage return without a line 
feed, type a number sign (#) . To insert spaces, enclose them in quo- 
tation marks. These operations are useful for format output. 

3 . 2 ASK 

The ASK command is normally used in indirect commands to allow the 
user to input data at specific points during the execution of the pro- 
gram. The ASK command is written in the form: 

* 

*11.99 ASK X*Y,2:> 

* 

When step 11.99 is encountered by FOCAL, it types a colon (:). Then, 
the user types a value in any format for the first identifier, followed 
by a carriage return or ALT MODE. The ALT MODE key continues the text 
on the same line. FOCAL then types another colon, and the user types 
a value for the second identifier. This continues until all the iden- 
tifiers or variables in the ASK statement have been given values. 

*11.99 ASK X » Y > Z 
*00 11.99 
MJ4J8* 

* 

* 

* 

In the above example, the user typed 4,4 and 8 as the values, respec- 
tively, for X,Y,Z. 

FOCAL recognizes each value when its terminator (i.e., carriage return 
or ALT MODE) is typed. Therefore a value can only be changed before 
its terminator is typed. This is done by using RUBOUT or CTRL U. 


Teletype is a registered trademark of the Teletype Corporation. 


3-2 



Focal Commands 


A text string can be included in an ASK statement if the string is en- 
closed in quotation marks. 

* 

* 

*ERASE ALL 

*1.1 ASK 'HOW MANY APPLES DO YOU HAVE? * APPLES 
*D0 1.1 

HOU) MANY APPLES DO YOU HAUE? • 25 
*TYPE APP 

V 25.000* 

* 

u The identifier APP (FOCAL recognized only the first three characters 

of the identifier APPLES.) now has the value 25. When APP is used, it 
will equal 25. Its value may be reassigned if it is asked for again. 

* 

* 

*ERASE ALL 
*ASK APP 
} 30 

*TYPE APP 
30.000* 

* 

Alphabetic characters can be used if numerical values are assigned to 
identifiers or variables: 

*1.1 ASK a; TYPE %4 r A 
*D0 1 . 1 

: abcd 
1234* 

* 

* 

* 

* 

When the user typed ABCD and RETURN, FOCAL typed the numerical value 
of ABCD (Refer to "Alphanumeric Numbers", Section 2.13). 

Alphabetic responses are especially useful for keyboard responses to 
FOCAL statements. A YES or NO answer can be typed by the user during 
program execution in response to a program question, as explained in 
Section 3.9. 

3 . 3 WRITE 

C A WRITE command without an argument causes FOCAL to write out all 

indirect statements which the user has typed. Indirect statements 
are those preceded by a line number. 

A group of line numbers, or a specific line, can be typed out with the 
WRITE command using arguments, as shown below. 

*7.97 WRITE 2.0 
*7.98 WRITE 2.1 
*7,99 WRITE 
* 
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3.4 SET 

The SET command is used to define identifiers. When FOCAL executes 
a SET command, the identifier and its value, are stored in the user’s 
symbol table. When the identifier is encountered in the program, the 
value is substituted for the identifier. 

* 

♦ERASE ALL 

♦4.1 SET A=394.835 SET B=4.373 9 

♦4.2 TYPE '/. t A+B 

♦GO 

0.399203000E+03^ 

♦ 

♦ 

♦ 

An identifier can be set equal to previously defined identifiers, 
which, can be used in arithmetic expressions. 

♦ 

♦3.7 SET G= ( A+B ) ♦2"6 
♦ 

3 . 5 ERASE 

An ERASE command without an argument is used to delete all identifiers 
and their values except those in COMMON (Refer to Section 5.4 for the 
ERASE COMMON command.) from the symbol table. 

If the ERASE command is followed by a group number or a specific line 
number, a group of lines or a specific line is deleted from the pro- 
gram. 

♦ 

♦ERASE 2.0 
♦ERASE 7.11 

♦ 


The ERASE ALL command erases all the user's input. In the following 
example, an ERASE command is used to delete line 1.50. 

♦ 

♦ 

♦ERASE ALL 
♦1.2 SET B=2 

♦1.3 SET C=34 G 

♦1.4 TYPE B+C 

♦1.5 TYPE C-B 

♦ERASE 1.5 

♦WRITE 

C FOCAL V3A000 
01.20 SET B=2 
01.30 SET C=34 
01.40 TYPE B+C 
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The ERASE ALL command is generally used only in immediate mode because 
it returns to command mode upon completion. 

3.6 GO 

The GO command is used to execute the program which starts with the 
lowest numbered line. The remainder of the program is executed in line 
number sequence. Line numbers must be in the range 1.01 to 99.99. 

3 . 7 GOTO 

The GOTO command causes FOCAL to transfer control to a specific line 
in an indirect program. It must be followed by a specific line number. 
After executing the command at the specified line, FOCAL continues to 
the next higher line number, executing the program sequentially. 

* 

* 

* 

*ERASE ALL 
*1,1 TYPE " A " 

*1,2 TYPE ‘ B * 

*1.3 TYPE *C“ 

*1.4 TYPE ‘El* 

*G0T0 1.2 
BCD* 

* 

* 

3.8 DO 

The DO command transfers control momentarily to a single line, a group 
of lines, or an entire indirect program. If transfer is made to a 
single line, the statements on that line are executed, and control is 
transferred back to the statement following the DO command. Thus, the 
DO command makes a subroutine of the lines to which control is trans- 
ferred, as shown in the following example: 

* 

* 

*ERASE ALL 
*1.1 TYPE " F ’ 

*1.2 DO 2.3J TYPE "C* 

*1.3 TYPE ■ A * 

*1.4 TYPE ' L ’ 

*1.5 QUIT 
*2.3 TYPE *0’ 

*G0 

FOCAL* 

* 

* 

* 


If a DO command transfers control to a group of lines, FOCAL executes 
the group sequentially and returns control to the statement following 
the DO command. 
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If DO is written without an argument, FOCAL executes the entire in- 
direct program in the same manner as a GO command. 

DO commands cause specified portions of the indirect program to be 
executed as closed subroutines. These subroutines can also be ter- 
minated by a RETURN command. 

A GOTO or an IF statement within a DO subroutine modifies the program 
execution sequence. 

3.9 IF 

To transfer control after a comparison, FOCAL contains a conditional 
IF statement in the form IF (m)x,y,z; m is an expression or variable, 
and x,y,z,are three line numbers. The expression is evaluated, and 
the program transfers control to the first number, x, if the expression 
is less than zero; to the second line number, y, if the expression 
equals zero; or to the third line number, z, if the value of the ex- 
pression is greater than zero. 

* 

* 

*2.1 TYPE " LESS THAN ZERO " * QUIT 
*2.2 TYPE "EQUAL TO ZERO " f QUIT 
*2,3 TYPE "GREATER THAN ZERO "5 QUIT 
*IF (25-25) 2.1 ,2. 2.2. 3 
EQUAL TO ZERO* 

* 

* 

In the above example, the parenthetical expression equals zero; con- 
sequently, line 2.2 is executed. Note that an IF statement must be 
enclosed in parentheses. 

The IF statement can be shortened by terminating it with a semicolon 
or carriage return after the first or second line number. If a semi- 
colon follows the first line number, the expression is tested, and 
control is transferred to that line if the expression is less than 
zero. If the expression is not less than zero, the program continues 
with the next statement. 

* 

*2.20 IF (X) 1.8 f TYPE n C" 

* 

In the above example, when line 2.20 is executed, if X is less than 
zero, control is transferred to line 1.8. If not, C is typed out. 
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* 

* 

#3.19 I F ( B ) 1 . 8 > 1 . 9 
#3.20 TYPE B 
# 

# 

In the above example, if B is less than zero, control goes to line 1.8, 
if B is equal to zero, control goes to line 1.9. If B is greater than 
zero, control goes to the next statement (in this case, line 3.20), and 
the value of B is typed. 

In programs that require a keyboard response (as in Section 4.7 line 
3.2), it is useful to determine if the answer by the user to an ASK 
question is YES or NO. Alphabetic responses used with an IF statement 
permit one of two possible commands to be executed, depending on the 
user's answer. For example: 


IF (answer-OYes) 1 . 1 , 2 . 1 , 1 . 1 

where answer is YES or NO, as typed by the user. The next command 
depends on whether answer is YES (in which case, answer-OYES equals 0, 
and line 2.1 is executed) or NO (producing a nonzero result and moving 
program execution to line 1.1). 

For example, 

#1.1 TYPE 'DO YOU WANT A LINE?*,! 

#1.2 ASK ’TYPE YES OR NO * » ANS » ! 

*1.3 IF (ANS-OYES) 2. 1,2. 2,2.1 
*2.1 QUIT 

*2.2 TYPE ' * , ! 

*2.3 GOTO 1.1 
*G0 

DO YOU WANT A LINE? 

TYPE YES OR NOJYES 


DO YOU WANT A LINE? 

TYPE YES OR NO J NO 

If a GOTO or an IF command is executed within a DO subroutine, two 
actions are possible: 

a. If a GOTO or IF command causes transfer to a line inside the 
DO group, the remaining commands in that group are executed as in 
any subroutine before returning to the command following the DO 
command . 
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b. If transfer is to a line outside the DO group, that line is 
executed and control is returned to the command following the DO 
command unless that line contains another GOTO or IF. 


* 

* 

* 

♦ERASE ALL 

*1.1 TYPE • A* » SET X=-l* DO 3.1» TYPE *D’} DO 2 
*1.2 DO 2.0 
*2.1 TYPE ‘G* 

*2.2 IF <X) 2.5»2.6»2.7 
*2.5 TYPE *H* 

*2.6 TYPE 'I' 

*2.7 TYPE ’J" 

*2.8 TYPE *K" 

*2.9 TYPE X 2.01.X; TYPE * SET X=X+1 
*3.1 TYPE *B" * GOTO 5. If TYPE *F* 

*5.1 TYPE *C‘ 

*5.2 TYPE *U* 

*G0 

ABCDGHI JK-1 .0 GIJK 0.0 GJK 1.0 BCW* 

* 

* 

* 

* 

* 


3.10 RETURN 

The RETURN command is used to exit from a DO subroutine. When a 
RETURN command is encountered during execution of a DO subroutine, 
the program exits from its subroutine status and returns to the com- 
mand following the DO command that initiated the subroutine status. 

3.11 QUIT 

A QUIT command causes the program to halt and return control to the 
user. FOCAL types an asterisk and the user can type another command. 

3.12 COMMENT 

Beginning a command string with the letter C (except for COMMON) will 
cause the remainder of that line to be ignored to allow insertion of 
comments into the program. Such lines are skipped over when the pro- 
gram is executed, but are typed out by a WRITE command. A program 
that is well documented with comments is more meaningful and easier 
to understand than one without comments. 

3.13 FOR 

This command is used for convenience in setting up program loops and 
iterations. The general format is 

*FOR A=B,C,D; (COMMANDS) 
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C 


c 


The identifier A is initialized to the value B. Then, the commands 
following the semicolon up to the line terminator are executed. When 
the commands have been executed, the value of A is incremented by C 
and compared to the value of D. If A is less than or equal to D, the 
commands after the semicolon are executed again. This process is re- 
peated until A is greater than D; then, FOCAL goes to the next sequen- 
tial line. 


The identifier A must be a single variable. B,C, and D can be either 
expressions, variables, or numbers. If a comma and the value C are 
omitted, it is assumed that the increment is one. If C,D is omitted, 
it is handled like a SET statement and no iteration is performed. 

The computations involved in the FOR statement are done in floating- 
point arithmetic, and it may be necessary, in some circumstances to 
account for this type of arithmetic computation. 

Example 1 below is a simple example of how FOCAL executes a FOR com- 
mand. Example 2 shows the FOR command combined with a DO command. 


Example 1 : 


* 

♦ERASE ALL 

*3.11 SET A=383 . 383 

*3.12 FOR B=20»10,705 TYPE X7.03, *B IS * B+A» ! 
*60 

B IS 403.383 

B IS 413.383 

B IS 423.383 

B IS 433.383 

B IS 443.383 

B IS 453.383 

* 

* 


Example 2 

*1.1 FOR X=l,2>9; DO 2,0 
*1.2 GOTO 3.1 

*2.1 TYPE ! * * %5 » "X" X 

*2.2 SET A=X+100 , 00 

*2.3 TYPE ! * " %5 > " A " A 

*3,1 QUIT 

*G0 

X 1 

A 101 

X 3 

A 103 

X 5 

A 105 

X 7 

A 107 

X 9 

A 109* 
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If two FOR statements are put on one line, the second FOR statement 
is performed in full for each incrementation in the first FOR state- 
ment. Any number of FOR statements may appear on one line. 

3.14 MODIFY 

Frequently, only a few characters in a particular line require changes. 
To facilitate this job, and to eliminate the need to replace the en- 
tire line, FOCAL has a MODIFY command. For example, to modify the 
characters in line 5.41, the user types MODIFY 5.41 and then depresses 
the RETURN key. The program then waits for the user to type the char- 
acter he wishes to modify. After the user has typed the search char- 
acter, the program types out the contents of that line until the search 
character is typed. 

At this point, the user has seven options: 

a. Type in new characters in addition to the ones that have 
already been typed out. 

b. Type ALT MODE to continue the search to the next occurrence, 
if any, of the same search character. 

c. To change the search character, type CTRL BELL and the new 
search character as at the beginning of the MODIFY command. 

d. Use the RUBOUT key to delete one character to the left each 
time RUBOUT is depressed. 

e. Type a CTRL U to delete the line over to the left margin, 
but not the line number. 

f. Type carriage return to terminate the line at that point, 
removing the text to the right. 

g. Type a LINE FEED to save the remainder of the line. 
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The MODIFY command is generally used only in immediate mode because it 
returns to command mode upon completion. 

During command input, CTRL U deletes the line numbers as well as the 
text if the CTRL U is the right-most character on the line. However, 
when using the MODIFY command the line number is not deleted by the 
use of CTRL U. Note the error in line 7.01. 

* 

*7,01 JACK AND HILL WRNT UP THE GILL 
*M0DIFY 7.01 

H JACK AND H\ JRILL WRXEGNT UP THE G\H 

ILL. 

* WRITE 7.01 

07.01 JACK AND JILL WENT UP THE HILL 

* ERASE ALL 
* 

* 

To modify line 7.01, the user typed an H to indicate the character to 
be changed. FOCAL stopped typing when it encountered the search 
character H. The user typed the RUBOUT key to delete the H, and then 
typed the correct letter, J. The user then typed the CTRL BELL key 
followed by the R, the next character to be changed. The RUBOUT 
deleted the R and the user typed E. Again a search was made (this 
time for the G) , and the G was changed to H. The user typed a line 
feed to save the remainder of the line. 

When the MODIFY command (or another command which alters the stored 
indirect program) is used, the values in the user's symbol table 
(except those defined as COMMON) are reset to zero. Therefore, if 
the user defines his symbols in direct statements and then uses a 
MODIFY command, the values of his symbols are erased and must be re- 
defined. 

However, if the user defines his symbols by indirect statements prior 
to using a MODIFY command, the values are not erased because these 
symbols are not entered in the symbol table until the statements 
defining them are executed. 

In the following example, notice that the values of Y and Z were set 
using direct statements. The use of the MODIFY command resets their 
values to zero and lists them after the defined symbols: 
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♦ ERASE ALL 
♦SET 7=9 
♦SET Y=8 
*1,1 SET X=3 
*1,2 SET W~4 

*1.3 TYPE W+X+Y+Z i TYPE !f TYPE * 

♦MODIFY 1.1 
S SET X=5 

* 

*GO 
9 

X88C00) 

wee (oo) 

Yeetoo) 
zee (oo) 

* 

* 

3.15 USING THE TRACE FEATURE 

As noted in Section 2.10, the trace feature is useful in checking an 
operating program. Those parts of the program which are enclosed in 
question marks are printed out as they are executed. 

In the following example, parts of three lines are printed. 


o 

= 4 

= 0 
- 0 


* 

* 

*ERASE ALL 

*1.1 SET A=2 

*1.2 SET B=5 

*1.3 SET C=3 

*1.4 TYPE X2» TA+B-C?,! 

*1.5 TYPE TB+A/C?, ! 

*1.6 TYPE ?B-C? 

*1.6 TYPE TB-C/A? 

♦GO 

A+B-C 4 
B+A/C 6 
B-C/A 4* 

* 


Also, GO? will trace the program starting with the lowest numbered 
line, provided no other question marks are present in the program. 


3 
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3.16 INTERNAL FUNCTIONS 

The internal functions provide extended arithmetic capabilities. User 
defined external functions are described in Chapter 6. A standard 
function call consists of four letters, beginning with the letter F, 
and followed by a parenthetical expression. 

The following are the internal functions: 

Q a. The square root function (FSQT) computes the square root of 

the expression within parentheses. 

* 

♦ 

♦ TYPE 7. t FSQT ( 43 . 489 ) 

0.6594 A 1902E+01* 

♦TYPE FSQT (2. 333) 

0. 1 52741 61 2E+01* 

♦TYPE FSQT ( 3718 ) 

0.609754049E+02* 

♦ 

♦ 


b. The absolute value function (FABS) outputs the absolute or 
positive value of the number in parentheses. 

♦ 

♦ 

♦TYPE FABS (-394) 

0.394000000E+03* 

♦TYPE FABS ( - . 93 ) 

0.930000000E+00^ 

♦TYPE FABS ( 73 ) 

0.730000000E+02^ 

♦ 

♦ 

c. The sign part function (FSGN) outputs the sign part (+ or -) 
of a number and the integer part becomes a 1. Zero is con- 
sidered a positive number. 

♦ 

♦ TYPE 7 ., FSGN ( -283 . 3 ) 

-0. 1000000()0E + 01^ 

♦TYPE FSGN ( 0 . 00 ) 

0. lOOOOOOOOE+Ol.^ 

♦TYPE FSGN (-0.38) 

-0. lOOOOOOOOE+Ol^ 

♦ 

♦ 

♦ 

♦ 


3-13 



Focal Commands 


d. The integer part function (F1TR) outputs the integer part of 
a number up to ±131071(2^-1). 

* 

* 

*TYPE % » FUR < -34 . 8 ) 

-0.340000000EK>2^ 

♦TYPE FITR (0.73) 

O.OOOOOOOOOE+OOXc 
♦TYPE FITR ( 374 . 92) 

0.374000000EK)3'X 

♦ 

♦ 

♦ 

e. The random number generator function (FRAN) computes a non- 
statistical pseudo-random number between -1 and +1 (most 
numbers fall in the range 0 to +1.). Another random number 
generator function (FRNO) is provided in the external function 
file FNEW and is described in Section 6.2. 

♦ 

♦ 

♦TYPE Z> FRAN ( ) 

0.719269147E-02* 

♦TYPE FRAN ( ) 

0.549454402E-0U 

♦ 

♦ 

♦ 

f. The exponential function (FEXP) computes e (e=2. 718281) to 
the power within parentheses. 

♦ 

♦ 

♦ 

♦ TYPE FEXP (27) 

0. 53204824 1E+12* 

♦TYPE FEXP (2. 348) 

0. 104646 196E+02# 

♦TYPE FEXP (0.374) 

0.145353715E+01# 

♦ 

♦ 

♦ 

In floating-point format (%) you only get correct results for 
FEXP(X) if 2300>X>-2302 . If X is not between these limits the expon- 
ent of the result will not be between ± 999, and a colon will replace 
its high order digits as described in Section 2.3. 

Example: 

♦ T FEXP ( 2 300)0. 7 5 3 8 9 0 7 1 Ef 9 9 9 ♦ 


♦T FEXP ( 2301)0. 20492876E+: 00 
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The ?27 error message does not appear as it applies only to mantissas 
with more than 35 binary bits (11 or 12 decimal digits) while the above 
limitation relates to exponents, not mantissas. 

g. The sine function (FSIN) calculates the sine of an angle 
expressed in radians. 

# 

* 

0 * 

*TYPE X, FSIN <3. 10) 

0. 41 58066 18E--01* 

* *TYPE FSIN (0.278) 

0.274432986E+00* 

♦ TYPE FSIN (1.272) 

0. 95569 15Q7E+00* 

* 

* 

FOCAL requires that angles be expressed in radians; thus, to find a 
function of an angle in degrees, the conversion factor tt/ 180, must be 
used. To find the sine of 10 degrees: 

* 

*SET PI-3. 14159? TYPE FSIN ( 10*PT/ 180) 

0 - 1 73 6 4803 3E +00* 

h. The cosine function (FCOS) calculates the cosine of an angle 
expressed in radians. 

* 

* TYPE %. FCOS ( 2*PI ) 

0. 100000000E+01* 

*TYPE FCOS (.3628) 

0 . 934906789E+00* 

♦TYPE FCOS (1.37) 

0. 199449721E+00* 

* 

i. The arctangent function (FATN) calculates the angle in radians 
the tangent of which is the argument within parentheses. 

♦TYPE 2. FATN (1.000) 

0 • 785398 164E+00* 

♦TYPE FATN (23. 44) 

*' 0 . 152816007E+01* 

♦TYPE FATN (0.728) 

0. 629271 79SE+00* 


j . The logarithm function (FLOG) computes the natural logarithm 
(log g ) of the number within parentheses. 

♦TYPE Z> FLOG (238. 48467) 

0 . 547430503E+01* 

♦TYPE FLOG (0.2876) 

— 0 . 124618465E+01 * 

♦TYPE FLOG (1.23) 

0.207014169E+00* 
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CHAPTER 4 

EXAMPLES OF FOCAL PROGRAMS 


C 


o 


4.1 TABLE GENERATION USING FUNCTIONS 

The ability to evaluate simple arithmetic expressions and to generate 
values with the aid of internal functions is one of the first benefits 
to be derived from learning the FOCAL language. In the example that 
follows, a table of sine, natural logarithm, and exponential values 
is generated for a series of arguments . As the user becomes more 
familiar with these functions, he can easily combine them with stand- 
ard arithmetic operations and evaluate any given formula for a single 
value or for a range of values. 

In this example, line *1.01 outputs the desired column headings. 

Line *1.10 is the loop to generate values for I, beginning with the 
value 1.00000000 and continuing in increments of .00000010 through the 
value 1.00000100; the DO 2.05 command at the end of this second line 
causes the various functions to be executed for the I arguments. The 
output format %9.08 in line 2.05 specifies that all output results up 
to the next % symbol are to appear in fixed-point format with one digit 
position to the left of the decimal point and eight digit positions 
to the right; the second % symbol reverts the output mode back to 
floating point for the remaining values FLOG and FEXP.Line 01.20 
(optional) returns control to the user. 

The following techniques are apparent in line *2.05 of this example: 

a. FOCAL commands can be abbreviated to the first letter of the 
command followed by a space, as shown by the use of T instead 
of TYPE. This technique can be used to shorten command 
strings . 

b. Arguments can be enclosed in various ways. This feature is 
useful in matching correctly when a number of enclosures 
appear in a command. 

c. Spaces can be inserted in an output format by enclosing the 
appropriate number of spaces within quotation marks. This 
procedure is recommended to improve the readability of the 
output results. 

d. The use of very small loop increments (in this example 
.0000001) eliminates the need to interpolate between table 
values of trigonometric functions. FOCAL is usually accur- 
ate to eight significant digits but rounding in certain cases 
may place some uncertainty on the 8th place. Thus, the user, 
in some circumstances, may need to account for the rounding. 
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* 1 . 0 1 T " 

I 

SINE 


LOG 

*1,10 FOR i = :i 

« , 0000001 p :i 

.0000015 DO 2, 

05 


*1,20 QUIT 





* 

5,05 T ;<9.08 

pIp" ” vFSIf 

(Dp" “pXpFLOC 

<I> 

p" " pFEXFTII I v ! 

u u 

I 

SINE 

LOG 


E 


t . 00000000 

0.84147099 

0.80692952 IE 

10 

0, 2718281 83E+0 


!. , 00000010 

0.84147104 

0 . 999 785 6 7 7E 

07 

0.271 8282 10E+0 


I. , 00000020 

0.84147109 

0. 19987644 2E 

06 

0 , 2 7 1 8 2 8 2 3 7 E + 0 


1. , 00000030 

0,84147115 

0.299 73397 :1.E 

06 

0 ,271 8 2 8 2 6 4 E + 0 


1. , 00000040 

0,84147120 

0,399631 845 E 

06 

0.271 8282 9 2E+0 


1. , 00000050 

0.84147126 

0 , 4 99 529 7 2 0E 

06 

0 ♦ 271 82 73 1 9E+0 


1. , 00000060 

0,84147131 

0 , 5 9 9 4 2 7 5 9 5 E 

06 

0.2718 2 8346 E+0 


1. * 00000070 

0,84147136 

0, 699285 123E 

06 

0.271828 3 73E+0 


I . O000OORO 

0, 84 '1 471 4? 


06 

0 « 2 7 1 8 2 8 4 0 0 E + 0 


1. , 00000090 

0.84147147 

0 .89904 0 5 2 6 E 

06 

0 , 2 7 1 8 2 8 4 2 7 E + 0 


1. ,00000.100 

0.84147153 

0 . 9 9 89 78 7 4 7E 

06 

0 ,271 8 2 8 4 5 4 E TO 


* 


4.2 FORMULA EVALUATION FOR CIRCLES AND SPHERES 


In this example, FOCAL is used to calculate, label, and output geo- 
metric values for an indefinite number of radii typed in by the user. 


Given a radius, 

a. circle 

b. circle 

c. circle 

d. sphere 

e. sphere 


R, FOCAL can calculate such values as: 

diameter: 2R 

2 

area : ttR 

circumference: 2 ttR 
volume: 4 ttR 3 /3 

2 

surface area: 4irR 


Although inches are used in this example, conversions to other systems 
(metric, for example) could be easily incorporated into the program, 
without the need for hand-calculated conversions. 


The program is very straightforward. ASK is used to allow the user to 
type in the radius value to be used in the calculations. SET is used 
to supply the value of it. TYPE is used for all calculations and out- 
put. If a value (e.g., tt in this example) is to be entered once and 
then used in repeated calculations, it should be entered by a SET 
command which is outside the calculation loop; otherwise, the variable 
must be set at the beginning of each pass through the loop. If the 
value of the variable changes during each iteration, however, then it 
must be calculated either by a SET or TYPE command within the loop. 

The use of the GOTO command (line *1.50) results in an infinite loop 
of lines *1.10 through *1.50. This technique is used when the number 
of desired repetitions is not known. The looping process can be ter- 


o 
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minated at any time by typing CTRL P. If, however, the number of 
desired repetitions is known (e.g., 10), the following method can 
be used. 


O 




♦SET PI =3. 14159 
♦1.1 ASK ... 

♦ 

♦ 

♦ 1.6 TYPE: ! ! ! ! ! 

♦FOR I = 1,105 DO 1 

The ability to choose between these methods provides great flexibility 
in actually running FOCAL programs. 

♦C FOCAL XVM V1A000 

*1.01 SET PI =3. 14159 

♦1.10 ASK " A RADIUS OF *,R, "INCHES" 

♦ 1.20 TYPE X8.04, ! , * GENERATES A CIRCLE OF: *,! 

♦ 1.21 TYPE " DIAMETER*, 2*.R, " INCHES*,! 

♦1.30 TYPE " AREA", P1^R"2,* SQUARE INCHES*,! 

♦ 1.31 TYPE " CIRCUMFERENCE", 2^PI^R, * INCHES*,! 

♦1.40 TYPE ! , "AND A SPHERE OF:*,! 

♦1.47 TYPE " VOLUME", ( 4/3 ) ♦P I ♦R"3 , " CUBIC INCHES*,! 

♦ 1,50 TYPE !!!!!$ GOTO .1 , 1 
♦GO 

A RADIUS OF : 26. 39 INCHES 
GENERATES A CIRCLE OF: 

D I A M FT E R 5 2 .780 0 I N C H E S 

AREA 2187.9041 SQUARE INCHES 
C I R C U M F E R E N C E 1 6 5 . 8 1 3 1 I N C H E S 


AND A SPHERE OF: 

VOLUME 76985.053 CUBIC INCHES 


A RADIUS OF : 0.73 INCHES 
GENERATES A CIRCLE OF: 

D I A M FT E R 1.4 6 0 0 INC H E S 

A R E A 1 . 6 7 42 S Q U A R E I NCH E S 

c; I R C U M F E R E N C E 4 . 5 8 6 7 I N C H E S 

AND A SPHERE OF*. 

V 0 1... U M E 1 . 6 2 9 5 C U B I C I N C H E S 

4.3 ONE-LINE FUNCTION PLOTTING 

This example demonstrates the use of FOCAL to present, in graphic 
form, some given function over a range of values. In this example, 
the function used is 


y=30+15 [sin (x) ]e °- lx 


4-3 



Examples of Focal Programs 


with x ranging from 0 to 15 in increments of .5. This damped sine 
wave has many physical applications, especially in electronics and 
mechanics (for example, in designing automobile shock absorbers) . 


In the actual coding of the example, the variables I and J were used 
in place of x and y, respectively; any two variables could have been 
used. The single line 1.10 contains a set of nested loops for I and 
J. The J loop types spaces horizontally for the y coordinate of the 
function; the I loop prints the * symbol and the carriage return and 
line feeds for the x coordinate. The function itself is used as the 
upper limit of the J loop, again showing the power of FOCAL commands. 

The technique illustrated by this example can be used to plot any 
desired function. Although the * symbol was used here, any legal 
FOCAL character is acceptable. 


* 1.1 F :i>0y .5» 15 ; T “*"«!; F J=0»30+15*FSIN<I )*FEXP<~. 1*1 ) » T * " 
*no ,i.i 
* 

* 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


o 






Cl 
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4.4 DEMONSTRATION DICE GAME 

Occasionally, the computer user will apply the computer to tasks solely 
for his own enjoyment. Because such pastimes are usually keyboard 
oriented, FOCAL lends itself nicely to these ends. The following exam- 
ple uses the random number generator, FRAN ( ) , to produce dice com- 
binations, as well as IF logic to check bets and winning combinations. 

Note again the use of initials to abbreviate commands throughout the 
example (remember that each such abbreviation must be followed by a 
space) . 

The random number generator must be modified for use with statistical 
or simulation programs to achieve true randomness. However, it is 
sufficiently random for most applications in its present form. 


NOTE 


DEC does not assume any responsibility for the 
use of this routine or any similar routines. 

C FOCAL XUM U1A000 

01.10 S B = 0 5 T ! ! * D ICE GAME * ! . " I401.J S E I... I M I T I S $ 1 000 " 

01.13 T ". MINv BET IS $1.00"!! 

01.20 ASK “YOUR BET IS" A? I <1.000- A) 3.10 
01 . 22 I < A'-l ) 3 . 40 . 1 . 2 A . 1 . 26 

01.26 IF (A-FITR(A) >3.50. 1 .30x3.50 

01.30 ASK M5 DO 2? SET D-C5D0 25 T " * 5 SET D=D+C 

01.32 I ( D— 7 ) 1 . 42 y 3 . 20 1 .1 . 42 

01.40 I < D - 2 ) 1 . 5 0 y 3 . 3 0 y 1 . 5 0 
01.42 I < D- 1 1 ) 1 . 40 y 3 . 20 . 1 . 40 

0 1 . 50 I < D-3 ) 1 , 60 y 3 . 30 y 1 . 60 

01.60 ASK M y DO 2 ? S E=C v DO 2 5 T “ " 5 S E=E+C 

0 1,72 I < E-7 ) 1 . 74 y 3 . 30 y 1 . 74 
01.74 I < E-D ) 1 . 60 y 3 . 20 . 1 . 60 

02.10 SET C~FITR< 1 0*F ABS ( FEAN < ) ) ) 5 IF < C-6 ) 2 . 20 y 2 . 20 y 2 . 1 0 
0 2 . 2 0 I ( C ■••• 1)2. 1 0 y T 7 1 y * 11 C 5 R E T U R N 

03.10 T "HOUSE LIMITS ARE $ 1000" Hi G 1.20 

03.20 S B--B + A 5 T 7.6.0. ' “YOU WIN. YOUR WINNINGS ARE “yByU.G 1.2 

03.30 S B-B-A5T 76 . 0. ! "SORRY YOU LOSE. YOUR WINNINGS ARE ".B.M5G I . 

03.40 T "MIN. BET IS $1"!!5G 1.2 

03.50 T “NO PENNIES. PLEASE " !! 5 GOTO 1.2 


O 
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#G0 


DICE GAME 

HOUSE LIMIT IS $1000. MIN* BET IS $1.00 


YOUR BET IS:. 50 
MIN. BET IS $1 

YOUR BET IS: 15 


YOU WIN. YOUR WINNINGS ARE 


15 


YOUR BET IS: 5 


„> ,.i 

YOU WIN. YOUR WINNINGS ARE 


20 


YOUR BET IS: 3 


YOU WIN. YOUR WINNINGS ARE 23 

Y 0 U R B E T I S : I ' L L. Q IJ I T W H I L E I'M A H E A B . T HANKS! 
4.5 SIMULTANEOUS EQUATIONS AND MATRICES 


Many disciplines use subscripted variables for vectors in one, two, or 
more dimensions to store and manipulate data. A common use is the 2- 
dimensional array or matrix for handling sets of simultaneous equations. 
For example, 


Given 

ix 1 + 

2X 2 

+ 

3X 3 = 4 


4X X + 

3X 2 

+ 

2X 3 = 1 


ix 1 + 

4X 2 

+ 

3X 3 = 2 

Find: 

The values 

of 

x r 

X 2 , and X 3 to satisfy all three equations 


simultaneously . 

The solution can be reduced to simple mathematics between the various 
elements of the rows and columns until correct values of X are found. 


Each individual quantity in an array is referred to in terms of its 
position within the array. This identifier is a subscript. The 
notation A(I) refers to element I of array A. 

FOCAL uses only a single subscript. Thus, the handling of two or more 
dimensions requires the generation of a linear subscript which repre- 
sents the correct position if it were stored in normal order, i.e., 
leftmost subscript moving fastest. 
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o 


* 


In one dimension: For example: 

Element D could be represented as 
ARRAY (3) ; any element in this array 
can be represented by a subscript in 
the range 0 through 4. The first ele- 
ment in an array always has a subscript 
of 0. 

In two dimensions: 

ARRAY (row, column) or A(I,J) 

This must be reduced to the form A(G). Because subscripts are lin- 
ear, G is a function of I and J; that is, A(I,J)=A(G). Consider the 
diagram 


1 = 0 
1 
2 

3 

4 

This array has five rows and three columns; thus, two values can be 
defined: 


J= 


0 

1 

2 

0 

5 

10 

1 

6 

11 

2 

7 

12 

3 

8 

13 

4 

9 

14 


ARRAY (0) 
( 1 ) 
( 2 ) 

(3) 

(4) 


IMAX = 5 
JMAX = 3 

To generate the number (G) in any box, using the corresponding values 
of I and J, the formula 

G=I+IMAX*J or A (G) =A { I+IMAX*J) 

can be used. Each element in a 2-dimensional array represents an 
area. The example for solving simultaneous equations, above, uses 
this algorithm for subscripts, merely by replacing I, IMAX, and J 
with J, L, and K, respectively, to form the equation 

A ( J+L*K) 

In three dimensions 

ARRAY (row, column, plane) =A (I , J,K) =A (G) 
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Three dimensions can be illustrated as a rectangular solid. 



This rectangular solid has dimensions of five rows, three columns, 
and four planes ; thus, IMAX=5 , JMAX=3 , and KMAX=4. Each plane is 
numbered exactly as in the 2-dimensional example, except 15 times 
K (with K = the number of planes back from the first) is added to 
each subscript in the first plane. 

Example : 

Upper lefthand square, back one plane from the first = 15 
1=0, J=0,K=1;I+ (IMAX*J)+ ( IMAX*JMAX*K) =1 5=G 

or 

A ( 0 , 0, 1 ) = A (15) 


O 




In four dimensions: 

ARRAY (row, column, plane, cube) =A (I, J, K, L) =A (G) 

Assign the values for IMAX, JMAX, KMAX ; a method similar to the one 
above yields 

G=I+ ( IMAX* J ) + ( IMAX* JMAX*K) + ( IMAX* JMAX*KMAX*L) 

This process can theoretically be extended indefinitely to n-dimensions . 


o 
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C FOCAL XVM V1A000 

01,02 TYPE ! “ROUTINE TO SOLVE MATRIX EQ. AX=B FOR X 

01.04 ASK “ENTER DIMENSION OF A, THEN 

01.05 TYPE ! “ENTER COEFF'S A< J»K> . . . A( J»N) AND B ( J ) 

01.10 ASK L * ! 5 SET N=L-1? SET I=~l 

01.11 FOR K=0 1 N ? SET R(K)=K+1 

01.12 FOR J=0 t N ? TYPE !? FOR K=O.L? ASK A(J+L*K) 
01.14 SET M=lE-6 

01.16 FOR J=0 » N ? FOR K=O.N? DO 4 

01.17 SET RCP1-0 . 

01.18 FOR K=0 r L ? SET ACP+L*KD=ACP+I...*K1/M 

01.20 FOR J-0 iN* DO 5 

01.22 SET 1=1+1 

01.23 IF ( I-N) 1.14. 1.26 . 1.14 
01.26 FOR J=0 » N ? FOR K=0»N? DO 7 

01.28 FOR K=0 r N ? TYPE ! 5£2 r “ X < * K » " ) “ . %8 . 05 , X ( K ) 

01.29 TYPE ! ! ? GOTO 1.02 

04.05 IF <R<J>> 0. 4 . 3 r 4.1 

04.10 IF (FABS<A( J+L*K) ) - FABSCM3 ) 4.3? 

04.20 SET M=A(J+L*K> 

04.22 SET P=J? SET Q=K 

04.30 RETURN 

05.10 IF <J-P> 5. 2. 5 . At 5. 2 

05.20 SET D=A<J+L*Q> 

05.30 FOR K=0 » L ? SET A<J+L*K>=A<J+L*K>-A<P+L*K>*D 
05.40 RETURN 

07.10 IF ( 1E--6-FABSEA ( J+L#K ) 3 ) 7.2? RETURN 

07.20 SET X<K)=A( J+L*L) 

*G0 


ROUTINE TO SOLVE MATRIX EQ . AX=B FOR X 
ENTER DIMENSION OF A, THEN 
ENTER COEFF'S A < J * K ) , , . A ( J » N ) AND B(J) 
?3 


•11312*4 

15131612 


♦ -r ♦ 

♦ C> ♦ 

11211 


X( 

0) 

0.25000 

X( 

1 ) 

1.75000 

X< 

2) -• 

0 . 75000 


ROUTINE TO SOLVE MATRIX EQ. AX=B FOR X 
ENTER DIMENSION OF A, THEN 
ENTER COEFF ' S A ( J » K ) , . . A < ,J . N ) AND B < J ) 
13 


14151213 


11131815 


1121611 


X< 0) 

5.00000 

X< 1 ) - 

4.00000 

X< 2) 

1.50000 
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4.6 INTEREST PAYMENT PROGRAM 

This is an example of a business-oriented FOCAL program. It is desig- 
ned to completely describe the payments to be made on a loan, with 
interest, on an installment plan basis. 

Under program control, the computer requests as input the amount of a 
loan, the percentage of interest on that loan, and the length of time 
over which the loan is to be paid. The computer than calculates and 
types the amount of monthly payments to be paid, the total amount of 
interest to be paid, and a table showing interest paid, amount applied 
to principal, and balance due after each payment. 


C FOCAL XUM U1A000 

01.02 TYPE: ' ! r Z7.02 

01.20 TYPE’ " THIS PROGRAM WILL. COMPUTE MONTHLY PAYMENTS AND THE" 

0 1 . 2 1 T Y P E " C 0 N T R I B U T 1 0 N 0 F E A C H “ 

01.22 TYPE ! "PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE 

01.23 T Y P E “ F 0 1... L 0 U I N G 5 “ y ! ! 

01.30 ASK "WHAT IS THE AMOUNT OF THE PRINCIPAL?" PRINCIPAL 

01.31 ASK "WHAT IS THE RATE OF INTEREST? " INTEREST 

01.32 ASK "WHAT IS THE TERM OF THE LOAN IN MONTHS?" TERM 

01.33 TYPE ! ! 

01.40 S E T D = 1 + ■: < I NT E R E S T / 1 2 > * ,01) 

01.41 FOR A=:l v 1 y TERM v 00 15.99 
0 1 , 4 2 S E T C P R I N 0 1 P A i... / B 

0 5 . 0 1 S E T B A L. A N C E - P R I N C I P A L 

0 5 . 0 2 T Y P E * P R I N Cl PAL " 

05.03 TYPE PRINCIPAL r TYPE " 

0 5.04 T Y P E " P A Y M E N T S " 5 T Y P E C ? T Y P E ! ! ! 

05.05 TYPE " PAYMENT “ 5 TYPE " 

0 5 , 0 6 T Y P E " I N T E R E S T " 5 T Y P E " 

0 5 , 0 7 T Y P E " P R I N C I P A L " 5 T Y P E " 

05,08 TYPE "BALANCE"? TYPE " "? TYPE ! 

06.01 FOR M=1 y 1 ? TERM y DO 7.00 

06 . 02 TYPE ! ! ! 5 TYPE " " ? 

0 6 . 0 3 T Y P E " T 0 T A L I N TE R E S' T " y % 6 . 0 2 

06, 0 4 T Y P E T 0 T I NT E R E S T 

06.05 TYPE ! ! ! 

06.06 GOTO 1,02 

0 7 , 0 1 S E T C I N T E R E S T - B A L A N C E * < I N T E R E S T / 1 2 ) * . 0 1 
0 7 , 0 2 S E T T 0 T I N T E R E S T = 1 0 T I N T E R E S T f C 1 N T E R E S T 

0 7.0 3 S E T C P R I N C I P A L = C - C I N T E R E S T 

0 7 , 0 4 5 E T B A L A N C E = B A L A N C E - C P R I N C I P A L 
0 7 , 0 5 T Y P E % 7 . 0 2 , M , % 1 4 , 0 2 

07 . 07 TYPE C INTEREST y CPRINCIPAI... « BALANCE y ! 

1 5.99 SET B B 4- ( 1 / < D > " A ) 


THIS PROGRAM WILL COMPUTE MONTHLY PAYMENTS AND THE CONTRIBUTION OF 
EACH PAYMENT TO INTEREST AND PRINCIPAL. PLEASE ANSWER THE FOLLOWING 5 

WHAT IS THE AMOUNT OF THE PRINCIPAL.?! 2000 

WHAT IS THE RATE OF INTEREST? 5 6 , 4 

WHAT IS THE TERM OF THE LOAN IN MONTHS? 512 


PRINCIPAL 


2000 . 00 


PAYMENTS 


172.50 




PAYMENT INTEREST PRINCIPAL BALANCE 


1 . 00 

10.67 

161.84 

1838.17 

2 . 00 

9.80 

162.70 

1675.47 

3 . 00 

8.94 

163.57 

1511.90 

4 . 00 

8 . 06 

164.44 

1347,47 

5.00 

7.19 

165.32 

1182.15 

6 . 00 

6.31 

166.20 

1015.96 

7.00 

5 + 4 7 

167.08 

848,87 

8.00 

4 . S3 

167.97 

680.90 

9.00 

3.63 

168.87 

512.03 

L0.00 

2.73 

169,77 

342.26 

1.1 .00 

1.83 

170.68 

171.59 

12.00 

0 . 92 

171.59 

0.00 


TOTAL INTEREST 

70.01 



4.7 INTERCEPT AND PLOT OF TWO FUNCTIONS 

Values are first computed and printed for two monotonic functions. 

Then these curves are plotted within specified limits. Non-monotonic 
functions must be plotted using the method of residuals. 

C FOCAL XVM V1A000 

01.01 T %8 . 04 

01.02 ASK "LOWER LIMIT" » LL * ! " UPPER LIMIT "* UL. *!" INCREMENT ", IN , ! 

01.10 SET Y 1 -0 > SET Y2=0 5 

01.20 FOR X-LL r IN » UL f SET Yl=--X-3» SET Y2=3+4*X-X''2 i BO 2.0 

02.10 IF (Y2-Y1) 2.3»2.2,2.3 

02.20 TYPE "THE POINT OF INTERSECTION IS "»! 

02.30 TYPE "XI— “ >Xf " " , "Yl=" *Y1 » ! » "X2=" »Xf " "»"Y2="»Y2»M 

03.10 TYPE "DO YOU WANT A PLOT?" 

03.20 ASK "(TYPE Y FOR YES. TYPE N FOR NO) "»AN» ! ! 

03.30 IF ( AN-OY )9.1»4, 1*9,1 

04.10 FOR X=LL. v IN »UL f DO 5.0 

05.01 IF <X) 5.1 y 5, 02 >5.1 

05 . 02 TYPE " Y. Y " r # 

05.10 FOR Y —0 1 30 i TYPE H " 

05.20 TYPE 

05.30 FOR Y-0 y 30+ < -X--3 ) 5 TYPE " " 

05.40 TYPE "*"»* 

05.50 FOR Y=0r30+(3+4*X--X”2) y TYPE " " 

05.60 TYPE " * " » ! 

09.10 QUIT 
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*G0 

LOWER LIMIT? -10 


Examples of Focal Programs 


UPPER limit: 10 


increment: i 


X 1=- 

10.0000 

Yi - 

7.0000 

X2=- 

10.0000 

Y2-- 

137.0000 

Xl=- 

9.0000 

Y1- 

6.0000 

X2®- 

9.0000 

Y2-- 

114.0000 

Xl=~ 

8.0000 

Yl- 

5.0000 

X2=- 

8.0000 

y p ™ .... 

93 . 0000 

Xl=~ 

7 . 0000 

Yl~ 

4,0000 

X2- 

7.0000 

Y2-- 

74.0000 

Xl=- 

6.0000 

Yl® 

3.0000 

X2®-~ 

6,0000 

Y2=- 

57 , 0000 

X 1 =- 

5.0000 

Yl = 

2 , 0000 

X2=- 

5.0000 

Y2=- 

42.0000 

XI®- 

4,0000 

Yl® 

1 . 0000 

X2=- 

4.0000 

Y2«- 

29.0000 

XI l.®~ 

5.0000 

Yl® 

0.0000 

X2=~ 

3.0000 

Y2=- 

18.0000 

XI"- 

2.0000 

Yl®- 

1 . 0000 

X 2 =•••• 

2.0000 

Y2®~ 

9.0000 

THE 

POINT OF 

I NT ERSE 

CTION IS 

XI®- 

1.0000 

Yl®— 

2.0000 

X2=- 

1,0000 

Y2=— 

2.0000 

X 1 - 

0,0000 

Yl®- 

3 , 0000 

X2® 

0.0000 

Y2® 

3,0000 

X 1 a 

1,0000 

Yl®- 

4.0000 

X2= 

1.0000 

Y2® 

6 . 0000 

X 1 ® 

2.0000 

Yl ®- 

5.0000 

X2® 

2.0000 

Y2® 

7 . 0000 

XI® 

3.0000 

Yl®- 

6 , 0000 

X2® 

3.0000 

Y2= 

6.0000 

XI = 

4.0000 

Yl®- 

7 , 0000 

X 2 — 

4.0000 

Y2® 

3 . 0000 

XI- 

5 , 0000 

Yl ®- 

8 . 0000 

X2~ 

5 , 0000 

Y2=- 

2,0000 

XI- 

6 . 0000 

Yl®- 

9.0000 

X2= 

6 . 0000 

Y2®- 

9 , 0000 

Xl = 

7.0000 

Yl®- 

10.0000 

X2® 

7.0000 

Y2=- 

18,0000 
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XI = 
X2- 

8.0000 
8 . 0000 

Yl=- 

Y2=- 

1 1 . 0000 
29 . 0000 

X 1 = 
X?= 

9.0000 

9.0000 

Y 1 ~ — 
Y2-— 

12.0000 

42.0000 

X 1 - 
X2= 

1 .0.0000 

10.0000 

Y 1 

Y 2 

13.0000 

57 . 0000 

Xl = 
X2 = 

11.0000 

11.0000 

Y.1-- 

Y2=— 

13.0000 

57.0000 


DO YOU WANT A PLOT? ( TYPE Y FOR YES. TYPE N FOR NO) JY 


* 

* 

* 

* 

* 

* 

* 


* 

* 

* 

* 


* 

* 

* 


* 


* 


* 

* 

* 


* 


* 


* 


* 


Y 


* 


* 


Y 


* 


* 


* 



* 


* 


4.8 SCHROEDINGER EQUATION SOLVER 

This program is designed to aid the user in searching for possible 
energy-states of an electron in a potential well. This is one of the 
most compex equations yet written in FOCAL. It calculates and plots 
the energy levels of an electron within specified boundary conditions. 

C FOCAL XV M VI H 000 


01 

01 

T 

!, "SCHROEDINGER EGUAT I ON SOLVER ! 


01. 

62 

T 

1 

!, " -DEL SOU HR ED PS I + AX * PS I = 

E * PS I" 

01. 

02 

R 

"TILTED SQUARE WELL PROBLEM WITH WIDTH", X 

0, ! 

01. 

08 

R 

"WELL TILT SLOPE A",A1, '.."TRIAL, ENERGY E" 

Bi, ' 

01. 

09 

H 

"NUMBER OF STEPS", NT, ' 


01. 

11 


VF =0 ■ S SL = i 


01 

70 

’IT 

P < 0 i = O , S D X - X 0/NT.f S P < 1 ) = S L * D X S R 0 = 0 


01 

-p er 

Z' 

VF =0 


01. 

80 

c. 

P0 — 0 


01. 

90 

F 

N=0, 1, NT-2, D 6 


01 

93 

T 

I , " F'S I ZEROS "Y.2. 0, PQ 


01 

95 

Q 

310 7. 02 
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05. 10 T ! , y.3. 0 , PX, " PS I ", FXF'X), ", " 

05.20 S F'Z=F I TR \ F'M+SC , S F’E=F I TR< < F'C F'X 3+F‘M ) *SC> 

05. 30 F X=l, 1, PZ-Ij T " " 

05.40 T ". F X=l, 1, PE+24J T " " 

05. 50 T R 

06. 10 S P N+2 > =< ( -Bl+fil*DX*C N+l 3 ) *DX''2+2>*P < N+l ) -p < N ) 

06. 20 I <NT-N-2 > 12. 90, 6. 9, 6. 3 

06.30 S RB=P ( N+2 ) *P < N+l ) s I CRB) 6. 4, 6. 4, 6. 9 

06. 40 S P0=P0+1.: R 

06. 90 CONTINUE 

07. 02 S CF= •: P<NT>/Pd> > -2.i T " CONV I ND " X, OF 

07. 05 Fl " NEW E?"NV 

07. 07 I <NV— 9) 7. 9, 7. 08, 7. 9 
07. 08 I <VF) 7. 09, 7. 8, 7. 09 
07. 09 I -:CF-100> 7. 1, 7. 1, 7. 8 

07.10 S R2=P<NT>*VF.i I <R2) 7.73,7.80,7.85 
07. 73 S DB=-0. 5+DB; GOTO 7. 85 

07. 80 S DB=0. 1 

07. 85 S B1“B1# < 1+DB > > T Bl.; 8 VF < NT > .; G 1. 80 
07 90 DO 14.; GOTO 12. Ol 

12. 01 T !, ! , "EIGEN E"B1, 9 HP=Bl/<Fli*X0> 

12. 20 T " EN. 'MftX POT "HP, ! 

12. 90 QUIT 

14. 10 S PM=0.; S F'F'=0, F PX=1, 1, NT, D 15 
14. 20 S PS=PM+PP.; S SC=45/PS 

14.30 T !!!.; F PX=1, 1, 78.; T ", " 

14. 40 F PX=0, 1, NT.: 0 5 

14.50 T ! j F PX=1, 1, 70.: T " . " 

14. 60 T ! !.: R 

15.10 I ■: PC F'X I > 15.2,15.9,15.5 

15.20 I <PM+PCPX>> 15.3,15.4,15.4 

15. 30 S F'M=FFlBS < PC PX 3 ) 

15. 40 RETURN 

15. 50 I <P<PX>-PP> 15.9,15.9,15.6 
15. 60 S PP=P < PX > 

15. 90 RETURN 


+ GO 

SCHROEDINGER EQUATION SOLVER - 

-DELSQUfiRED PS I -»• HX * PS I * E PS1 
TILTED SQUARE WELL PROBLEM WITH WIDTH:! 

WELL TILT SLOPE A: 40 
TRIAL ENERGY E . 50 
NUMBER OF STEPS: 15 

F -• I *-tiF. U-C' 1 CUNY I ND 0. 5ul32'6462E*t'U! NE"W E : V 
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Examples of Focal Programs 


0 PS I 0. 

000000000E+00. 

& 



1 PS I 0. 

666686867E— 01. 


* 


2 PS I 0. 

119308842E+00. 



* 

3 PS I 0. 

148265S43E+00. 



* 

4 PS I 0. 

149546390E+00. 




5 PS I 0. 

124684213E+00. 



* 

6 PS I 0. 

7950312S7E-01. 


* 


7 PS I 0. 

223082351E-01. 

•f 



8 PS 1-0. 

379932849E-01. 

* 



9 PS 1-0. 

934541789E-01. X 

: 



10 PS 1-0. 

138115924E+00. * 




11 P SI-0. 





12 PS 1-0. 

1 8 3 3 2 0 2 8 6 E + 0 0 ;+ : 




13 PS 1-0. 

183520414E+004 1 




14 PS 1-0. 

171213965E+00. * 




15 PS 1-0. 

149288805E+00. * 





EIGEN E 0. 500000000E+02 EN/MRX POT 0. 125000000E+01 


C 
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CHAPTER 5 


LIBRARY COMMANDS 


FOCAL LIBRARY commands allow the user to save and then call programs 
by name. These commands cause files consistent with the XVM/DOS file 
format to be produced and accepted. These files, which use IOPS ASCII 
data mode, can be manipulated by other XVM/DOS programs such as PIP 
and EDITOR. In addition to the library commands, a COMMON command and 
an ERASE COMMON command are available. These commands allow the effec- 
tive segmentation (chaining) of FOCAL programs, with the COMMON area 
defining those variables which are to be used by all segments. 

5.1 LIBRARY OUTPUT COMMANDS 

Three operations are required to produce a file with the FOCAL library 
commands : 

a. File initialization 

b. File output 

c. File termination 

5.1.1 Library File Initialization 
The command 

* 

♦LIBRARY OUT NAME 

* 

initializes a file - on the output device associated with .DAT slot 5. 

If the device is directoried (i.e., has named files), then the file 
name NAME is used. NAME can be up to six alphanumeric characters 
and is terminated by a carriage return. The extension FCL is supplied 
by the system. 

5.1.2 Library File Output Operations 

Commands of the form 
* 

♦LIBRARY WRITE nnn 
* 

cause information to be entered into the library file. The character 
string nnn can take four forms which are explained below. 

5 . 1 . 2 . 1 Direct Command Output 

If the character string nnn, in the example above, begins with quo- 
tation marks ("), the command indicates that the character string 
following the quotation marks is to be inserted into the file. This 
character string may be any FOCAL command. 
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For example, the command here is an *, a FOCAL symbol typed by the 
user to signal termination of input from the device associated with 
-DAT slot 3. 

* 

♦LIBRARY WRITE "*» GO 
* 

causes the command 

♦ 

* 

**>G0 

to be inserted into the library file as a direct command. This will 
start the program when the file is later called for execution by a 
library input command. 

5. 1.2.2 Single Line Output 

If the character string nnn is a legal line number which is present in 
the program in core, this command causes a single line to be inserted 
into the file. For example, the command 

* 

♦LIBRARY WRITE 10.02 
* 

causes line 10.02 to be inserted into the currently opened output file. 

5 . 1 . 2 . 3 Group Output 

If the character string nnn is a legal group number, this command 
causes the entire group of lines to be inserted into the file. For 
example, the command 

:+■ 

* 

-LIBRARY WRITE 2 . 

causes all group 2 lines to be inserted into the current output file. 

5 . 1 . 2 . 4 Program Output 

If the character string nnn is ALL or A, then the entire indirect pro- 
gram is inserted into the current output file. 

5.1.3 Library File Termination 

After using the appropriate library output commands, it is necessary 
to issue the command 


: + LIB R H R V C LOSE 

to complete file output and enter the file name into the directory 
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of the mass storage unit of the system. The LIBRARY CLOSE command 
allows an input or output file to be closed. An error message "?35" 
will be printed if a file has not be opened. If the LIBRARY CLOSE 
command is not issued, the user remains in library mode and all other 
commands are illegal. However, to leave library mode without actually 
finishing the output file, the command 

* 

* 

■*L I BRRRV KILL 

is used. After using this command, the user is in command mode, and 
the file which had been started by the library output commands is 
lost. 

5.2 LIBRARY INPUT COMMANDS 

To load a library file which has been output from FOCAL or which has 
been prepared off-line, the command 

* 

* 

*L I BRfiRY IN NAME 

is used where NAME follows the conventions used for library output. 

The library input from the device associated with .DAT slot 3 is ter- 
minated by an end of file or end of tape condition on the input file. 

It is also terminated by the presence of a direct command of asterisk 
(*) , supplied during a LIBRARY WRITE command within the library file. 

If none of these three conditions occurs, FOCAL assumes that subsequent 
input (e.g., for ASK command) will come from the device associated 
with .DAT slot 3. This direct command can be a multiple command 
which can provide automatic program starting. For example, a direct 
command to terminate input and to start a program at line number 8.21 
would be 


.+ 

*.i QOTO 3. 21 

This command can be inserted at the end of the library output by the 
command 

* 

* 

♦LIBRARY WRITE GOTO 3. 21 
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5.3 LIBRARY .DAT SLOT USAGE 

The FOCAL LIBRARY commands assume input on .DAT slot 3 and output on 
.DAT slot 5, and the FOCAL DATA commands assume input on .DAT slot 7 
and output on .DAT slot 10. The recommended assignment to the Linking 
Loader is the System Library located on system disk unit 0. 

The following table shows a typical set of device assignments where 
the system software is on disk pack unit 0, input is from DECtape 
unit 1 and output is to DECtape unit 2. 

.DAT Slot Contents Sample Assignment 


.DAT 

-1 

System Library 

DPO 

.DAT 

-4 

FOCAL binary program 
plus FNEW binary 

DPO 

.DAT 

3 

FOCAL library input 

DTI 

.DAT 

5 

FOCAL library output 

DT2 

.DAT 

7 

FOCAL data input 

DTI 

.DAT 

10 

FOCAL data output 

DT2 


FOCAL data commands are described in Chapter 7, and .DAT slot assign- 
ments are again summarized in Appendix E. 

5.4 COMMON VARIABLES AND ARRAYS 

The COMMON command allows the user to define permanent FOCAL variables 
and arrays which are saved with their current values when the user 
modifies the stored indirect program. Thus, the caution at the MOD- 
IFY command (refer to Section 3.14) does not apply to COMMON variables. 
The COMMON command is legal only if no other variables have been de- 
fined in the symbol table. Thus, it is good programming practice to 
precede a COMMON definition by an ERASE command to clear the symbol 
table. If any non-COMMON variables have been defined when the COMMON 
command is executed, it will be treated as a COMMENT and ignored. 

5.4.1 COMMON Format 

Three types of variables can be defined in a COMMON command as the 
following example shows. 

:* 

:+ 

* C 0 M M 0 N R , B < 5).« (C, 1, 1, 1) 

The first variable. A, defines a single non-subscripted variable. The 
second variable, B(5), defines a single array element to be COMMON. 

All other elements of the array B are non-COMMON. The third variable 
(C.l.1.3) defines a series of array elements as COMMON by using a 
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notation similar to the FOR statement. Thus, the command 
* 

#COMMON (Crlr.1. »5> 

* 

is equivalent to the command 

* 

* C 0 M M 0 N C < 1 > , C < 2 ) .• C<2 ) , C < 4 ) , C < 5 > 

but much shorter. Note that, because COMMON and COMMENT both have the 
initial letter C, the COMMON command must not be abbreviated. 

5.4.2 ERASE COMMON Command 

The ERASE COMMON command must be used to clear the COMMON area if a 
user wishes to define a completely new COMMON area. It will clear 
both the COMMON area and all variables in the symbol table, but not 
the program itself. If, however, the user simply wants to add to the 
current COMMON area, it is only necessary to erase any non-COMMON 
variables by using ERASE. The ERASE ALL command has no effect on the 
COMMON area variables and does not change their values. 

5 . 5 CHAINING OF FOCAL PROGRAMS 

For FOCAL programs that exceed the capacity of user's core memory, it 
is possible to segment the program. By combining the library input 
and COMMON commands, one segment can call another by name. ALL COM- 
MON variables are retained in core memory for access to them from 
all segments of the program. New COMMON variables can be added to 
the permanent table from any segment. The command LIBRARY IN NAME 
brings in the next segment to core memory and provides access to the 
COMMON table for the operations in this segment of the program. 

NOTE 

Ensure that a segment does not exceed its alloted 
memory location or the overflow will begin to 
erase the compiler core. 

The following example shows three FOCAL segments and the operations 
required to provide the segments with linkage capability. The first 
segment, named CHI, defines a COMMON area and initializes the varia- 
bles. If CHI is called again, it checks for the values in the second 
part of the COMMON area which were defined in CH2 and QUITS. The 
second-segment, CH2 defines more COMMON variables, checks the original 
COMMON values created in CHI , and initializes the additional COMMON 
variables. The third segment checks all the COMMON values and calls 
the first segment again. 
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♦■WRITE 


C FOCAL XVM VI 

01. 05 TVF’E "CHI REflDYL ! 

01. 10 COMMON fl, EC C, (ABC, 1, 5) 

01. 20 IF 0=0 £0. 1, 1. 3, 20. 1 

01. 30 SET A=1 

01. 40 SET B = 2; SET C=3 

01.50 FOR X=l, 5, SET flBC(X>»X*10 

01.55 TYPE "CHI DONE - CALLING CH2",! 

01. 60 LIBRARY IN CH2 

20. 10 IF C 0 — 10 ) 20. 2, 20. 2, 20. 2 

20. 20 TYPE "COMMON ERROR ON 2ND CALL OF CHI'S 

20.30 TYPE "ALL DONE'S!; SUIT 

♦LIBRARY OUT CHI 
♦LIBRARY WRITE "ERASE ALL 
♦LIBRARY WRITE ALL 
♦LIBRARY WRITE "♦; GO 
♦LIBRARY CLOSE 


Listing 
of CHI 


c> 


\ Library 
' Output 
of CHI 


J 


♦WRITE ALL 


C FOCAL XVM V1A0O0 

01. 10 TYPE "CH2 READY", I 

01. 20 COMMON 0, < ABC, 5, 1, 10) 

01. 30 FOR X=6, 10; S ABC<X)=X*10 
01. 40 FOR X=l, 10; DO 25. 0 
01.50 IF <A+B+C-6) 1.6, 1.7, 1.6 

01.60 TYPE " CH2 COMMON ERROR - SUM = ", A+B+C, ! 

01. 70 TYPE " CH2 DONE - CALLING CH3 “ , ! 

01. 80 LIBRARY IN CH3 

25. 10 IF < AE^C ( X ) — 10 : *X) 25. 2,25. 3, 25. 2 

25.20 TYPE "ERROR AT X = ", X, " ABC ARRAY = " , ABC: ( X ) , ! 

25. 30 RETURN 


Listing 
of CH2 




♦LIBRARY 

♦LIBRARY 

♦LIBRARY 

♦LIBRARY 

♦LIBRARY 

* 


OUT CH2 

WRITE "ERASE ALL 
WRITE ALL. 

WRITE "♦; GO 
CLOSE 


l Library 
) Output 
of CH2 


a 


♦WRITE ALL 


C FOCAL XVM V1A000 

01. 10 TYPE "CHS READY", ! 

01. 20 FOR X=l, 10; DO 25. 0 
01. 30 SET 0=10 

01. 40 TYPE "CH2 DONE - CALLING CHI AGAIN", 
01. 50 LIBRARY IN CHI 

25. 10 IF < ABC < X) — 10* : X ) 25. 2,25. 3,25. £ 

25.20 TYPE "ERROR AT X = ", X, " ABC ARRAY = " 
25. 30 RETURN 


ABC C 


) , 




Listing 
of CH3 


J 


o 
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♦LIBRARY 
♦LIBRARY 
♦LIBRARY 
♦L I BRflRV 
♦LIBRARY 
* 


OUT CH3: 

WRITE "ERASE 1. 00 
WRITE 1. 00 
WRITE GO 

CLOSE 


Library 
Output 
of CH3 


<3 


a 


BFOCAL XVM VIAOOO 
♦ERASE COMMON 
♦LIBRARY IN CHI 


CHI READY 
CHI DONE 
CH2 READY 
CH2 DONE 
CHS READY 
CHS DONE 
CHI READY 
ALL DONE 
♦TYPE * 

A 0 0 < OO > = 
BOO < OO ) = 
COO < 00.) = 
ABC<01>= 
ABC <020 = 
ABC < OS > = 
ABC >: 04 > = 
ABC<05>= 
GOO < 00 > = 
ABC<@6>= 
ABC < 07)= 
ABC (0o>= 
ABC ( 09 ) = 
ABC < 10)= 


CH2 
CHI- 
CHI AGAIN 


- CALL I NG 

- CALLING- 
CALLING 


1. 00OO 

2 . 0000 
2 . 0000 

10 . 0000 
20 . 0000 
30. 0000 
40 . 0000 
50. 0000 
10 . 0000 
SO. 0000 
70. 0000 
80. 0000 
90. 0000 
100 . 0000 


A 


Library 
Input and 
. Execution of 
/ Chained Pro- 
grams CHI, 
CH2 and CH3 







Dump of 

COMMON 

Symbols 


it 
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CHAPTER 6 

USER DEFINED FOCAL FUNCTIONS 


The ability to write FOCAL functions in MACRO assembly language and 
subsequently interface these functions with the FOCAL interpreter is 
an important feature which allows real-time use of FOCAL. These func- 
tions are processed in the same way as the normal internal functions 
supplied with the interpreter (i.e., FSIN, FITR, etc . ) . Some external 
functions are provided in the FNEW file (Refer to Section 6.2). User- 
defined functions can be incorporated into the source file of FNEW 
and then reassembled by MACRO. The process is described in the XVM/ 
DOS System Installation Guide. The interface of external functions is 
accomplished by: 

a. Use of a function table which contains the three letter 
function name in .SIXBT (6-bit ASCII) and a jump to the 
function processor. 

b. Use of .GLOBL definitions which allow the function pro- 
cessors to use character processing and expression eval- 
uation routines which are in the interpreter. 

The following detailed example shows the operations necessary to 
write an external FOCAL function in MACRO assembler language and to 
merge it into the external function file, FNEW, described in Sec- 
tion 6.2. 

6 . 1 EXAMPLE 

A scope routine has been generated to display characters at a given 
point on a scope. This routine is called from FOCAL as a function by 
XYC (X, Y, SHOW) . Here, X and Y are expressions to be used as display 
coordinates for the start of SHOW. 

First, the function name and transfer instruction must be added to 
the . NEWF function table within FNEW. Refer to page 6-6. 

•SIXBT /XYC/ 

JMP SETXYC 

When control arrives at SETXYC, the X has already been evaluated. 

JMS* 


SETXYC 


DXL 


.AX 


/make 18 bits 
/set X coordinate 
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Now, check for the second argument and give an error if no second 
argument is given. 


JMS* 

XSPNOR 

/skip spaces 

SAD 

(254 

/is it a comma? 

JMP 

+ 3 

/yes 

.DEC 

LAW 

1 

/?01 error 

.OCT 

JMP* 

FUNERR 

/function error 


Move past the separating comma. 

JMS* UTRA 

Evaluate the second argument. 


LAC 

EVAL 

/address of evaluation 



routine 

DAC 

+ 2 


JMS* 

XPUSHJ 


XX 






The second argument must be made into an 18-bit quantity and the y 
coordinate set: 


JMS* .AX 

DYL 


Test for a comma; if present, bypass it to get to the character string. 


JMS* 

XSPNOR 

/skip spaces 

SAD 

(254 

/is it comma? 

JMP 

+ 3 

/yes 

.DEC 

LAW 

1 

/?01 error 

.OCT 

JMP* 

FUNERR 

/error return 

JMS* 

UTRA 

/ skip comma 


Now, pick up the single ASCII characters and display them. (This 
example assumes the character display routine is called DYCHAR.): 


DCLOOP 

LAC* 

CHAR 


JMS 

DYCHAR 


JMS* 

UTRA 


SAD 

(251 


JMP* 

EFUN3 


JMP 

DCLOOP 


/get character c. 

/display it 
/get next char 
/is it end? 

/yes-return 
/no-go display next 
character 
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6.2 FILE FNEW 

The following functions are supplied in FNEW (where N cannot be 
another function) : 

MEANING 

Set the x coordinate of the 34H display 
Set the y coordinate of the 34H display 
and itensify the point 
Set the x and y coordinates and intensify. 

Set the multiplexer of the A/D converter 
and perform one conversion 
Set the D/A converter to the specified 
value . 

If N=-l, clear the relay buffer (M should 
not be specified) 

If N=0 to 17, set the appropriate bit of 
relay buffer according to the value 
of M(0 or 1) . 

Start a sequence of random numbers in the 
range of -1.0 less than or equal N 
less than or equal +1.0 based on the 
value of N. The value N may be any 
valid arithmetic expression. FRND 
always generates the same number for 
the same value of N. If N is either 
0 or i_i (a space) , a random number 
will be generated based upon the 
previously generated number. The 
first time FRND is called, if with a 
0 or i_i argument , it produces a value 
of 1.0000. 

The following points should be noted: 

1. Other names for the 34H display are the RM503 Scope or the 
VP15B Scope. 

2. The proper way to use these functions is as follows: 

SET J = FDXY (N , M) 

(What J will be set to is immaterial, and other letters 
may be used in place of J.) You cannot use: 

FDXY (N,M) 

3. The 34H display is a refresh-type scope. This fact, combined 
with the time it takes to interpret and execute the graphics 
functions, limits them to a maximum of 75-100 points on the 
screen, before the first point put out begins to diappear. 
Hence, they are suitable for putting out graphs consisting 

of a set of points. They are not suitable for putting out 
"continuous line" drawings, in which many points spaced close 
together look like a continuous line. 


FUNCTION 

FDXS (N) 
FDIS (M) 

FDXY (N, M) 
FADC (N) 

FDAC (N) 

FRLB (N, M) 


FRND (N) 
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The functions are supplied to provide the user with additional exam- 
ples in the method of coding external functions. 

The listing that follows is representative of the source code in the 
file FNEW is supplied by DEC but may not exactly match what is avail- 
able. 


/ F 0 C A i... E X T E R N A L F U N C T i 0 H F R 0 G R A : 1 
/ 

/ C 0 P Y R 1 G M '! :!. 9 6 9 , 1 9 7 1 ? D l G I T A i... E Q U .1: p X £ X 7 C 0 ft ft - -■ 
/ 

/DAVE LEN'EY 
/EDIT 004 


* 01.. ObL 

, NEW 

* GLOBL 

XPUS 

<• GLGBL 

Xr’US 

* GLGBL 

PD2 

* GLGBL 

P D 3 

GLOBL 

u I R ( i 

> globl 

X6 i i'\ 

* G I... 0 B L 

F b N i... 

> GLGBL 

EFUN 

GLGBL 

F I NT 

•> GLOBL 

CHAR 

* GLGBL 

L V A L 

<• GLGBi... 
v GLOBL 

v A A 

v GLOBL 

* H C 

* GLOBL 

v BA 

, GLGBL 

* A X 

v GLOBL 

i 'i v'J 


FMUL - 3 OuE 0 ; 

F li i y —4000 . 
i :: CE T -500000 
FPU I'-oOOOOC 
F NOR =70 0000 
FX IT =-0000 00 

. EJECT 



/ F D C A L 0 P E R A 7 1 0 N S < F C C A L 
/ 


/ i ■' U 




9 


« 


c. 


/ P U J H I H E H A R D W A R E A C C U M U L A TOR ( P i. I S H A ) 


POP THE HARDWARE ACCUMULATOR CPui : 
LACY 13 
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/ 

/PUSH FLOATING ACCUMULATO R (PUSH F . A A > 
/ LAC .AA 

/ DAC .+2 

/ JMS* PD 2 

/ XX 

/POP FLOATING ACCUMULATOR: (POPF .AA) 

/ LAC .AA 

/ DAC . +2 

/ JMS* PD3 

/ XX 


/PUSH FLOATING VARIABLE ( PUS HR' VAR) 

/ JMS* PD2 

/ . DSA VAR /WHERE VAR IS THE FIRST OF 

/ /THREE (3) REGISTER BLOCK 


/POP FLOATING VAR I ABE (POPF VAR) 

/ JMS* PD3 

/ .DSA VAR /SAME AS FOR PUSHF VAR 

/FETCH CURRENT CHARACTER 
/ LAC* CHAR 

/ 

/ F E T C H NEX T C H A R A C T E R ( G ETC) 

/ JMS* UTRA /CHARACTER IN BOTH CHAR AND AC 


/ 1 G N 0 R E L El A D I N G S P A C EE S A N D Z E R 0 S ( S P N 0 R ) 

/ JMS* XSPNOR /NEXT CHARACTER IN BOTH CHAR AND AC 


/INDICATE A FUNCTION ERROR (EE RFC OR NN) 

/ .DEC 

LAW NN /NN- TWO DIGIT (DECIMAL) ERROR CODE 

.OCT 

/ JMP* FUNERR /ERROR WILL HAVE DOUBLE QUESTION MARK 

/ 

/ RET t.J R N F R 0 M F U N C T 1 0 N ( R ETUR N ) 

/ JMP* EFUN3 /VALUE OF FUNCTION IN FLOATING AC 


t h ; EH 


FLOATING POINT 
JMS* PINT 

FNN A 

FNN* B 

FNN C 

FXIT 


I N T E R P R E T E R ( J M S F I N T > 

/FROM HERE ON ALL INSTRUCTIONS 
/ARE ASSUMED TO BE FLOATING POINT 
/UNTIL FXIT IS REACHED - FNN 
/REFERS TO FLOATING POINT OPERATIONS 
/LISTED NEXT. 


/FLOATING POINT OPERATIONS (USE * FOR INDIRECT) 


/ 

FPOW 

VAR 

/RAISE F.P. AC TO VAR /CONSTANT 

/ 

F ADD 

VAR 

/ADD F.P. VAR I ABLE/ CONST ANT TO 

/ 

F'SUB 

VAR 

/SUBTRACT FROM F.P. AC 

/ 

FMUL 

VAR 

/MULTIPLY THE F.P. AC 

/ 

FDIV 

VAR 

/DIVIDE INTO THE F.P. AC 

/ 

FGET 

V R 

/LOAD INTO THE F.P. AC 

/ 

FPUT 

VAR 

/STORE THE F.P. AC 

/ 

FNOR 


/NORMALIZE THE F.P. AC 

/ 

FXIT 


/EXIT FROM FLOATING POINT MODE 


/ N E G A T E T H E F !... 0 A T I N G A C C UMULATO R 
/ JMS* .BA 

/ 

FIX THE FLOATING ACCUMULATOR INTO THE HARDWARE ACCUMULATOR 
/ JMS* .AX 
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/ 

/FLOAT THE HARDWARE ACCUMULATOR INTO THE FLOATING ACCUMULATOR 
/ JMS* .AW 

/ 

/ 

/EXTERNAL. FUNCTION TABLE FORMAT 

/ WORD O: TWO'S COMPLEMENT COUNT OF NUMBER OF ENTRIES 

/ WORDS 1 TO 2NJ N TWO WORD ENTRIES 

/ EACH ENTRY: WORDOt .SIXBT THREE LETTER FUNCTION NAME 

/ worm: jmp to function address 

/ 

/ O 

♦ EJECT 

/ 

/TABLE OF NAMES OF EXTERNAL FUNCTIONS 
/ 


.NEWFE- 

-.-1/2X777777+1 

/TWO'S COMP COUNT OF NAMES 

. SIXBT 

/DXS/ 


JMP 

SETX 

/SET X COORDINATE 

.SIXBT 

/DIS/ 


JMP 

SETYI 

/SET Y COORDINATE AND INTENSIFY 

.SIXBT 

/DXY/ 


JMP 

SETX Y I 

/SET X AND Y AND INTENSIFY 

.SIXBT 

/ADC/ 


JMP 

SET ADC 

/SET MULTIPLEXER AND CONVERT 

.SIXBT 

/DAC/ 


JMP 

SET D AC 

/LOAD D/A CONVERTER 

.SIXBT 

/RLB/ 


JMP 

SETRLB 

/SET RELAY BUFFER 

.SIXBT 

/RND/ 


JMP 

RAND 

/RANDOM NUMBER ROUTINE 


♦ NEWFE= ♦ 


/I OT DEFINITIONS 
/ 


DYI... -700606 


/LOAD Y COORDINATE 

DXS- 7005 4 6 


/LOAD X COORDINATE AND INTENSIFY 

A DSF- 701301 


/SKIP ON A/D FLAG 

A DSC- 70 130 4 


/SELECT AND CONVERT 

A DR B- 70 13 12 


/READ A/D BUFFER 

ADSM-701 103 


/SET MULTIPLEXER 

DAL.. 1-705501 


/LOAD D/A CHANNEL ONE 

ORC- 702101 


/CLEAR RELAY BUFFER 

0RS-702104 


/SET RELAY BUFFER 

.EJECT 

SETX JMS* 

.AX 

/SET X COORDINATE 

DAC 

XCOORD 

/SAVE 

JMP* 

EFUN3 

/RETURN 

SETYI JMS* 

v AX 

/SET Y COORDINATE 

DYI... 


/LOAD REG WITH Y 

LAC 

XCOORD 


DXS 


/LOAD WITH X AND INTENSIFY 

JMP* 

EFUN3 

/RETURN 

SETXYI JMS* 

. AX 

/SET X COORDINATE 

DAC 

XCOORD 

/SAVE 

JMS 

GETARG 


JMP 

SETYI 

/NOW SAME AS FDIS 

SET ADC JMS* 

.AX 

/GET MULTIPLEXER CHANNEL 

ADSM 


/note: will use low order 

I OF 


/SIX BITS AS CHANNEL NUMBER 
/TURN OFF INTERRUPT SYSTEM 

ISA+10 

ADSC 


/SELECT AND CONVERT 

ADSF 


/WAIT FOR FLAG 


<3 
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JMP . :l. 

ADRB /READ A/D BUFFER 

////CODE REMOVED WHICH PROPAGATED SIGN BIT AGSIJM. 12 BIT A/D 
/ / / W A D A U G U S i" 1 9 69*** 



JMS* 

.AW 

/FLOAT RESULT 


LAC 

•: 400000 

/TURN ON INTEWUPT SYSTEM 


ISA 




ION 




JMP* 

EFUN3 

/RETURN 

SETDAC 

JMS* 

.AX 

/ G E T V A L U E A S I NT E G E R 


DAL 1 




JMP* 

EFUN3 


SETRL.B 

JMS* 

. AX 

/GET VALUE 


SMA 


/IS IT MINUS 


JMP 

. +4 

/NO - GO FIND SET POSITION 


DZM 

RELAYS 



ORC 


/YES - CLEAR WHOLE RELAY BUFFER 


JMP* 

EFUN3 

/RETURN 


CMA 


/FORM ONE'S COMP 


DAC 

TEMP 

/SAVE AS COUNT 


. DEC 




TAD 

< 18 

/MUST BE RELAY 0 TO 17 


.OCT 




SMA 


/IS IT LEGAL POSITION 


JMP 

.+3 

/YES 


. DEC 




LAUi 

An 

/NO 


. OCT 




JMP* 

FUN ERR 

/??02 ERROR 


Cl... A ! CLI. 

! CML 

/INITIALIZE AC 


k A R 




IS z 

TEMP 

/PUT SIT IN RIGHT 


JMP 


/POSI T ION 


DAC 

TEMP 

/SAVE BIT POSITION 


JMS 

GETARG 



LAC 

TEMP 

/CLEAR OLD RELAY VALUE 


CMA 




AND 

RELAYS 



DAC 

RELAYS 

/SAVE NEW BUFFER 


JMS* 

* AX 



SZA ! CL. A 


/CLEAR OR SET RELAY 


LAC 

TEMP 

/IF NON ZERO SET 


XOR 

RELAYS 



DAC 

RELAYS 



ORS 


/LOAD BUFFER 


JMP* 

EFUN3 

/RETURN 

/ 




GE I AEG 

0 


/GET ARGUMENT 


JMS* 

XSPNOR 

/ S K I P S P A C P S 


SAD 

C 254 

/IS IT A COMMA? 


JMP 

* f 3 

/YES 


. DEC 




LAW 

i 

/NO - ??01 ERROR 


.OCT 




JMP* 

FUN ERR 

/EXTERNAL FUNCTION ERROR 


JMS* 

UTRA 

/SKIP COMMA 


LAC 

EVAL 



DAC 

. +2 



JMS* 

XPUSHJ 

/CALL EXPRESSION EVALUATOR 


XX 




JMP* 

GETARG 

/RETURN 

X COORD 

0 


/X COORDINATE STORAGE 

RELAYS 

0 


/RELAY SUFFER STORAGE 

TEMP 

0 


/TEMPORARY STORAGE 
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/ROUTINE TO GENERATE A RANDOM NUMBER //DEC. 1970 
/NUMBER SEQUENCE CAN BE INITIALIZED 
/BY HAYING A NON-ZERO FUNCTION ARGUMENT 
/ 

/USES A SIMULATED 18BIT SHIFT REGESTER 
/WHICH IS SHIFTED 1 BIT RIGHT WITH FEEDBACK 


/FROM THE 7'THX18'TH STAGES TO 
/THROUGH AN EXCL.USI YE OR GATE 
/ 

RAND JMS* .AX 

SZA 

JMP STGEN 

LAC RANPT 

SNA 

LAW -1 

STGEN DAC RANPT 

RCR 

DAC RANPT 

GLK 

DAC BITSAY 

LAC RANPT 

RTR 
RTR 
RTR 
RTR 
RTR 

AND < 1 

XOR BITSAY 

SZA 

TAD (377777 

TAD RANPT 

DAC RANPT 

DAC* .AB 

DZM* .AA 

DZM* .AC 

JMP* EFUN3 

BITSAY 0 

RANPT 0 

/ 

.END 


THE 1 'ST STAGE 


/GET ARGUMENT IN AC 
/IS IT 0 

/NO GENERATE RANDOM NUMBER 
/YES IS LAST RANPT 0 

/YES INITIALIZE RANPT 
/START TO GENERATE 
/NEW RANDOM NUMBER 
/BY SHIFTING ONE BIT RIGHT 
/GET BIT:L7 AND STORE ( STAGE 18 ) 


/GET BITS (STAGE 7) 

/SETUP TO FEEDBACK TO BITO 
/(STAGE 1) THROUGH XOR GATE 


/FEEDBACK A ONE 

/MAKEUP NEW RANDOM NUMBER 

/STORE FOR FUTURE USE 

/SET SIGN AND HIGH ORDER MANTI 

/SET EXPONENT ==0 

/SET LOW ORDER MANTISSAS 

/EXIT TO FUNCTION RETURN 


SA 


o 
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CHAPTER 7 
DATA COMMANDS 


FOCAL data commands allow the user to store and then retrieve sub- 
stantial amounts of data through the use of auxiliary Input/Output 
devices other than the Teletype. The steps for processing the data 
need not be incorporated in the FOCAL program itself. The commands 
cause files consistent with the XVM/DOS format to be produced and 
accepted; and as with the library commands, the files can be manipu- 
lated by other XVM/DOS programs such as PIP and EDITOR, as may be 
noted from the examples at the end of this chapter. 

Data commands are used with other FOCAL commands and follow the 
same conventions with only minor exceptions. The DATA command, 
because of the conflict with the DO command, cannot be abbreviated. 
Also, under some conditions, library commands are illegal as with 
DATA OUT or DATA CLOSE (see 7.1.1 and 7.1.2). 

7.1 DATA COMMANDS 

Three operations are required to produce a file with the FOCAL data 
commands : 

a. file initialization 

b. file output 

c. file termination 

7.1.1 DATA File Initialization and Output 
The command 

*DATA OUT NAME 

initializes and enters a filename on the device associated with .DAT 
slot 10. The name can be up to six alphanumeric characters and is 
terminated by a carriage return. The extension FCL is supplied by 
the system. 

Every TYPE or WRITE command issued after DATA OUT NAME will output 
data to the device assigned to .DAT slot 10. For example with the 
following .DAT slots assigned: 

$A DPO -1,-4/DTl 3,5,7,10 

data is output to .DAT 10 on DECtape unit 1, until a DATA file ter- 
mination command is given. 

If a LIBRARY command is issued while in the DATA OUT mode, error 
message "?31" will be output to the teletype. What has already been 
output to the DATA file can then only be saved if a DATA CLOSE com- 
mand is issued. 
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7.1.2 DATA File Termination 

After the appropriate DATA output commands are used, it is necessary 
to issue the command 

*DATA CLOSE 

to complete file output and enter the filename and data into the device 
associated with .DAT slot 10. DATA CLOSE commands allow input or out- 
put files to be closed. If a file has not been opened, FOCAL will 
output the "?35” error message on the teletype. The DATA CLOSE com- 
mand also returns the user to the teletype mode. 

If the command is not issued, the user remains in the data mode. How- 
ever, to leave the data mode without finishing the output file the 
user may type 

*DATA KILL 

which aborts the output file and returns the user to the teletype mode. 
The file started by the DATA output command is lost when DATA KILL is 
issued. 

7.1.3 DATA Input 
The command 

*DATA IN NAME 

function is related to its use in indirect programs. When DATA IN 
NAME is used in an indirect program (e.g., 1.10 DATA IN filename), it 
initializes the device associated with .DAT slot 7 for data input 
from an ASK command. Recall that the ASK command is normally used in 
indirect commands and that its use is to input data at specific points 
during the execution of an indirect program. Thus, when a line num- 
ber and a DATA IN command such as 

*1.10 DATA IN filename 

is inserted in a program, .DAT slot 7 is initialized for data input 
when an ASK command such as 

*2.10 ASK X, Y, Z 

is encountered during program execution. 

7.2 DATA .DAT SLOT USAGE 

Data commands, as previously stated, assume input on .DAT slot 7 and 
output on .DAT slot 10. The recommended assignment to the Linking 
Loader is the system library located on unit 0. Recommended FOCAL 
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program and user input/output assignments for DECtape and Disk are: 


jHAT Slot 

•DAT -1 
.DAT -4 

.DAT 3 
.DAT 5 
.DAT 7 
.DAT 10 

7.3 DATA COMMAND USE 


Contents 

System Library 
FOCAL binary program 
plus FNEW binary 
FOCAL library input 
FOCAL library output 
FOCAL DATA input 
FOCAL DATA output 


Sample A ssignment 

DPO 

DPO 

DTO 

DTO 

DTO 

DTO 


Some of the data commands so far described are used in the following 
examples. Also demonstrated are the commands for loading FOCAL with 


the Linking Loader and for use of 
put of data on the teletype. 

XVM/DOS Vnxnnn 
$A DPI -4,3,5,7,10 
$GLOAD 

LOADER XVM Vnxnnn 
FOCAL 

FOCAL XVM Vnxnnn 
*1.10 DATA IN INDISK 
*1.20 ASK A, B , C , D, E 

*1 . 30T A+B+C+D+E,! 

*GO 

15,0000 
*LO SHOW 
*LWA 
*LC 

*LI Show 
*WA 

C FOCAL XVM Vnxnnn 
01.10 DATA IN INDISK 
01.20 ASK, A, B, C, D, E 
01.30 T A+B+C+D+E,! 

*GO 

15.0000 
*TA 

1 . 0000 * 

*TB, ! 

2.0000 


PIP for a Directory listing and out- 


/Prior..DAT slot assignment 


/Type indirect program 

/File INDISK contains the input 
Data. 

/See PIP listing of INDISK below. 
/Save indirect program. 

/Recall indirect program 


/List program on the teletype. 
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*DATA OUT OUTDT 

*TA 

*TB 

*TC 

*TD 

*TE, 1 

*DATA CLOSE 
* C 

XVM/DOS Vnxnnn 
SPIP 

XVM Vnxnnn 

PIP XVM Vnxnnn 
LTT DTI 


/Output data onto DECtape using 
/the TYPE command 


/Close the output file. 


/Examination of files created 
and input 


DIRECTORY LISTING 
1042 FREE BLKS 
4 USER FILES 
10 SYSTEM BLKS 

INDISK FCL 1 1 

FOCAL BIN 2 23 

SHOW FCL 3 1 

OUTDT FCL 4 1 

T TT DTI INDISK FCL (A) 

1.0 

2.0 

3.0 

4.0 

5.0 


C FOCAL XVM Vnxnnn 
01.10 DATA IN INDISK 

01.20 ASK A, B, C, D, E * 

01.30 T A+B+C+D+E.! 

T TT DTI OUTDT FCL (A) 

1.0000 2.0000 3.0000 4.0000 5.0000 


C 

XVM/DOS Vnxnnn 

$ 
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FOCAL COMMAND SUMMARY 


Command Abbre- Example of Form Explanation 

viation 


ASK 

A 

ASK X , Y , Z 

FOCAL types a colon for 
each variable, user then 
types a value to define each 
variable. 

COMMENT 

C 

COMMENT 

If a line begins with the 
letter C, but not COMMON, 
the remainder of the line is 
ignored during program ex- 
ecution . 

COMMON 

none 

COMMON A, B , 
(C, 1,2,20) 

Assigns COMMON variables to 
be stored in indirect pro- 
gram. 

CONTINUE 

C 

C 

Dummy lines. 

DATA 

none 

DATA OUT NAME 

Initializes the device 
assigned to .DAT 10 and, if 
file-oriented, enters the 
filename in the file direct- 
ory. 



DATA CLOSE 
NAME 

Closes the output file and 
returns the user to the 
teletype mode. 



DATA KILL 

Aborts the output file and 
returns the user to the 
teletype mode. 



DATA IN NAME 

Initializes the device 
assigned to .DAT 7 and 
reads in the file named. 

DO 

D 

DO 4.1 

Execute line 4.1, return to 
command following DO com- 
mand . 



DO 4.0 

Execute all group 4 lines, 
return to command following 
DO command, or when a RE- 
TURN is encountered. 



DO ALL 

Execute entire indirect 
program 

ERASE 

E 

ERASE 

Erases user's entire symbol 
table 



ERASE 2.0 

Erases all lines in group 2 1 



ERASE 2.1 

Erases line 2 . 1 1 



ERASE ALL 

Deletes all user input ^ 



ERASE COMMON 

Deletes all COMMON variables 


1 


Has no effect 
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Command Abbre- Example of Form Explanation 

viation 


FOR 


GO 

GO? 


GOTO 


IF 


LIBRARY 


F 


G 

G? 


G 


I 


L 


FOR I=X,Y,X, 
(commands) 


GO 


Where the command following 
is executed at each new 
value. 

X=initial value of I. 

Y = value added to I until 

I is greater than Z. 

Y = 1, if not defined. 

Starts indirect program at 
lowest numbered line number. 


GO? Starts at lowest numbered 

line number and traces en- 
tire indirect program until 
another question mark (?) or 
an error is encountered, or 
until completion of program. 


GOTO 3.4 Starts indirect program 

(transfers control to line 
3.4); must have argument. 


IF ( X ) Ln , Ln , Ln 

IF ( X ) Ln , Ln ; 
(commands) 


Where X is a defined iden- 
tifier, a value or an ex- 
pression, followed by three 
numbers/commands . 


IF (X)Ln; If X is less than zero, con- 

(commands) trol is transferred to the 

first line number. 


If X is equal to zero, con- 
trol is transferred to the 
second line number or com- 
mand . 


If X is greater than zero, 
control is transferred to 
the third line number or 
command . 


LIBRARY 

NAME 

OUT 

Initializes a file on the 
output device. 

LIBRARY 

NNN 

WRITE 

Inserts NNN in library out- 
put file. 

LIBRARY 

2.01 

WRITE 

Inserts line 2.01 in output 
f ile . 

LIBRARY 

2.00 

WRITE 

Inserts group 2 lines in 
library output file. 

LIBRARY 

ALL 

WRITE 

Inserts entire indirect pro- 
gram in library output file. 
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Command Abbre- Example of Form Explanation 

viation 




LIBRARY CLOSE 

Causes file name to be en- 
tered in directory. 



LIBRARY KILL 

Returns user to command mode 
& file is deleted. 



LIBRARY IN NAME 

Loads library file NAME. 

MODIFY 

M 

MODIFY 1.15 

Enables editing of any char- 
acter on line 1.15 (see 
below) . 

QUIT 

Q 

QUIT 

Returns control to the user. 

RETURN 

R 

RETURN 

Terminates DO subroutines, 
returning to the original 
sequence . 

SET 

S 

SET A=5/B*C 

Defines identifiers in the 
symbol table. Each occur- 
rence of A is replaced by 
the value of the expression. 

TYPE 

T 

TYPE A+B - C 

Evaluates expression and 
types out result in current 
ou tput f orma t . 



TYPE A-B , C/E 

Computes and types each ex- 
pression separated by commas 



TYPE "TEXT 
STRING" 

Types text, can be followed 
by exclamation point (!) to 
generate carriage return- 
line feed or by # to gener- 
ate carriage return only. 

WRITE 

W 

WRITE 
WRITE ALL 

FOCAL types out the entire 
indirect program. 



WRITE 1.0 

FOCAL types out all group 
1 lines. 



WRITE 1.1 

FOCAL types out line 1.1 

FOCAL Operations 




Operation 


Command 

Explanation 

To set output format 

TYPE % x.yz 

Where x is the total number 
of digits, and yz is the 
number of digits to the 
right of the decimal point. 



TYPE x 6.3, 
123.456 

FOCAL types : 123.456 



TYPE % 

Resets output format to 


floating point. 
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Operation 


Command 


Explanation 


To type symbol table TYPE $ Other statements may not 

follow on this line. 

To produce carriage I 

return-line feed 

Carriage return only # 


Modify Operations 


After a MODIFY command, the user types a search character, and FOCAL 
types out the contents of that line until the search character is 
typed. The user can then perform any of the following optional oper- 
ations . 

a. Type in new characters. FOCAL adds these to the line at the 
point of insertion. 

b. Type an ALT MODE. FOCAL proceeds to the next occurrence of 
the search character. 

c. Type a CTRL BELL. After this, the user can change the search 
character. 

d. Type RUBOUT. This deletes characters to the left; one char- 
acter for each time the user strikes the RUBOUT key. 

e. Type CTRL U. Deletes the line over to the left margin, but 
not the line number. 

f. Type RETURN. Terminates the line, deleting characters over 
to the right margin. 

g. Type LINE FEED. Saves the remainder of the line from the 
point at which LINE FEED is typed over to the right margin. 

Summary of Internal Functions 


Function 
Square Root 

Absolute Value 
Sign Part 

Integer Part 


Random Number 
Generator 


FOCAL Repre- 
sentation 

FSQT(x) 


FABS (x) 
FSGN (x) 

FITR (x) 


FRAN ( ) 


Operation 

Focal computes VX where x is a 
positive number or expression 
greater than zero. 

FOCAL ignores the sign of x. 

FOCAL evaluates the sign part 
only with 1 as integer. 

FOCAL operates on the integer 
part of x, ignoring any frac- 
tional part. 

FOCAL generates a random number. 


Exponential FEXP(x) 

Function (e x ) 


FOCAL generates e to the power 
x. ( 2 . 71828 1828 x ) . 
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Appendix A (Cont'd) 


Function 


FOCAL Repre- 
sentation 


Operation 


Sine 

FSIN (x) 

Cosin 

FCOS(x) 

Arc Tangent 

FATN (x) 

Logarithm 

FLOG (x) 


FOCAL generates the sine of angle 
x expressed in radians. 

FOCAL generates the cosine of 
angle x expressed in radians. 

FOCAL generates the arc tangent 
of angle x expressed in radians. 

FOCAL generates log g (x) . 


i* 
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APPENDIX B 


CODE 


?00 
?01 
?02 
?03 
?04 
?05 
?06 
?07 
?08 
?09 
?10 
?11 
?12 
?13 
?14 
?15 
?16 
?17 
?18 
? 19 
?20 
?21 
?22 
?23 
?24 
?25 
?26 
?27 
? 28 
?29 
?30 
?31 
? 32 
?33 
?34 
?35 
?36 
?37 
??nn 


ERROR DIAGNOSTICS 


MEANING 


Function not implemented 

Illegal character at beginning of line 

Group number illegal as line number 

Group number too large 

Illegal type/ask format 

Too many periods 

Line number too large 

Line number missing 

Illegal group number 

Push-down list overflow 

Illegal command 

Illegal IF format 

Left of equals in error on FOR or SET 

Excess right parenthesis 

Illegal FOR format 

Illegal variable name 

Text/variable buffer overflow 

Illegal expression format 

Operator missing before parenthesis 

Missing left parenthesis 

Illegal function name 

Double operator 

Parenthesis error 

ERASE or WRITE argument error 

Negative line number 

Zero argument for log 

Input overflow 

Number too large 

Negative power illegal 

Division by zero illegal 

Square root of a negative number 

Illegal command during library or data output 

Illegal library command 

Illegal file name 

File not found 

No file open 

•OTS error from arithmetic package 
COMMON statement format error 
User defined function error 
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APPENDIX C 

ESTIMATING THE LENGTH OF USER PROGRAMS 

FOCAL requires five words for each identifier stored in the symbol 
table, and one word for each three characters of stored program. 
This may be calculated by 

5s+( j *1.01) = length of user's program 

where s = Number of identifiers defined 

c = Number of characters in indirect program 

If the total program area or symbol table area becomes too large, 
FOCAL types the error message 

?16 

The following routine allows the user to find out how many core 
locations remain for his use. 

♦FOR 1=1 » 5000? SET A<I)=I 
? . 1 . 6 

♦ TYPE % 4 1*5. "LOCATIONS LEFT 

8 1 6 0 i... 0 C A T 1 0 N S L E F T ♦ 


At the end of this routine, use ERASE to clear all the variables A(I) 
from the symbol table. 


(Wait for FOCAL to type 
the error message.) 


NOTE 

The upper limit on I varies with the 
amount of core memory in the user ' s 
system. 


» 


r> 
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APPENDIX D 


CALCULATING TRIGONOMETRIC FUNCTIONS 


Function 

FOCAL 

Representation 

Argument 

Range 

Function 

Range 

Sine 

FSIN (A) 

0< 

A 

1 <10 t 4 

0< | F [ <1 

Cosine 

FCOS (A) 

0< 

A 

<10 + 4 

0< | F| <1 

Tangent 

FSIN (A) /FCOS (A) 

o< 

A 

<10 + 4 

0 < | F | <10+6 



l A 

/ (2N+1) tt/2 


Secant 

1/FCOS (A) 

0< 

A 

<10+4 

1< i F | < 10+ 6 



l A 

/ (2N+1) tt/2 


Cosecent 

1/FSIN (A) 

o< 

A 

<10t4 

1 < | F | <10+ 6 



l A 

/2Nir 


Cotangent 

FCOS (A) /FSIN (A) 

0< 

A 

<10 + 4 

0< | F | <10 +440 



l A 

^2Ntt 


Arc sine 

FATN (A/FSQT ( 1 -A +2 ) 

0< 

A 

<1 

0< | F | <tt/2 

Arc cosine 

FATN (FSQT ( l-A+2 ) /A) 

0< 

A 

<1 

0< j F j <tt/2 

Arc tangent 

FATN (A) 

0<A< 10t6 

0<F<tt/2 

Arc secant 

FATN (FSQT (A+2-1) ) 

l<A<10t6 

0<F<tt/2 

Arc cosecant 

FATN ( 1/FSQT (A+2-1 ) ) 

1 <A< 10+300 

0<F<tt/2 

Arc cotangent 

FATN (1 /A) 

0<A<10+615 

0<F<tt/2 

Hyperbolic sine 

(FEXP(A)-FEXP(-A) ) /2 

o< 

A 

<700 

0< | F | <5*10+300 

Hyperbolic 

(FEXP (A) +FEXP ( -A) ) /2 

o< 

A 

<700 

l<F<5*10+300 

cosine 






Hyperbolic 

(FEXP(A) -FEXP ( -A) )/ 

0< 

A 

A 

-J 

O 

o 

o 

A 

A 

H 

tangent 

(FEXP (A) +FEXP (-A) ) 





Hyperbolic 

2/ (FEXP (A) +FEXP (-A) ) 

o<| 

A 

A 

-0 

o 

o 

0<F<1 

secant 






Hyperbolic 

2/ (FEXP (A) -FEXP (-A) ) 

0<| 

A 

<700 

0<|f|<10+7 

cosecant 






Hyperbolic 

(FEXP (A) +FEXP ( -A) ) / 

0<| 

A 

<700 

1< If 1 <io+7 

cotangent 

(FEXP (A) -FEXP (-A) ) 





Arc hyperbolic 

FLOG (A+FSQT (At 2+1) ) 

-1 0+5 <A<1 0+600 

-12<F<1300 

sine 






Arc hyperbolic 

FLOG (A+FSQT(A+ 2-1 ) ) 

l<A<10+300 

0<F<700 

cosine 






Arc hyberbolic 

(FLOG (1+A) -FLOG (1-A) )/2 

o<| 

A l 

<1 

0< j F j <8.31777 

tangent 






Arc hyperbolic 

FLOG ( (1/A)+FSQT( (l/A+2) -1) ) 

o<| 

A l 

<1 

0<F<700 

secant 






Arc hyperbolic 

FLOG ( (1/A) +FSQT ( (l/A+2)+l) ) 

0< | 

A l 

<10+300 

0 < | F | <1400 

cosecant 






Arc hyperbolic 

(FLOG (X+l) -FLOG (X-l ) ) /2 

1<A<10+616 

0<F<8 

cotangent 
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APPENDIX E 

.DAT SLOT AND HANDLER ASSIGNMENTS 
SYSTEM IN XVM/DOS 


The .DAT slots to be assigned with FOCAL are 


■DAT Function 

-1 System Library 

-4 FOCAL binary program 

plus FNEW binary 

3 Library input 

5 Library output 

7 Data input 

10 Data output 


Typical Device Assignments* 

DPO < SYS > 

DPO <SYS > 

DPO <UIC> 

'DPO <UIC> 

DPO <UIC> 

DPO <UIC> 


* 


% 


*Here the system disk is assumed to be disk pack. If it is cartridge 
disk, substitute RK for DP in the assignments. Similarly, for fixed- 
head disk, substitute DK for DP. 
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INDEX 


Abbreviated commands, 2-13, 4-1 
Absolute value function (FABS) , 
3-13 

Addition, 2-5 

Alphanumeric characters, 2-12 
Alphanumeric numbers, 2-11 
Angle brackets, 2-5 
Arctangent function (FATN) , 

3-15 

Arithmetic operations and 
symbols, 2-4 
Arrays, COMMON, 5-4 
ASK command, 3-2, 3-3, 7-2 
* (asterisk) usage, 2-1, 3-8 
as plotting character, 4-4 
@ (at sign) used in symbol 
table, 2-6 

Auxiliary I/O devices, 1-3 


Brackets, 2-5 


Chaining, 5-5 
Character deletion, 2-9 
Characters, alphanumeric, 2-12 
Circles and spheres, formula 
evaluation for, 4-2 
: (colon) usage, 3-2 

Commands , 

abbreviations for, 2-11, 4-1 
data input, 7-2 
data output, 7-1 
library input, 5-3 
library output, 5-1 
Commands , 

ASK, 3-2, 3-3, 7-2 
COMMON, 5-1, 5-4 
DATA CLOSE, 7-1, 7-2 
DATA IN, 7-2 
DATA KILL, 7-2 
DO, 2-8, 3-5 

ERASE, 2-7, 2-10, 2-11, 3-4 

ERASE COMMON, 5-1, 5-5 

FOR, 3-8 

GO, 2-8, 3-5 

GOTO, 2-8, 3-5, 3-7 


Commands (cont.) , 

IF, 3-7 

LIBRARY CLOSE, 5-3 
LIBRARY WRITE, 5-3 
MODIFY, 2-11, 3-10 
RETURN, 3-8 
SET, 2-1, 3-4 
summary, A-l 
TYPE, 2-1, 3-1, 7-1 
WRITE, 2-9, 2-10, 3-3, 7-1 
COMMENT lines, 3-8 
COMMON command, 5-1, 5-4 
format, 5-4 
variables, 5-5 

Corrections in tvping, 2-9, 2-10, 
3-11 

Cosine function (FCOS) , 3-15 

CTRL P, 1-2 

CTRL U, 2-10, 3-11 


DATA CLOSE command, 7-1, 7-2 
Data commands, 7-1, 7-3 
DATA IN command, 7-2 
Data input/cutput , 1-3 
Data I/O .DAT slots, 1-2 
DATA KILL command, 7-2 
•DAT slots, 1-1, E-l 
data, 7-2 
library, 5-4 

Deleting characters, 2-9 
Deleting lines, 2-10 
Device assignment table, 1-1 
Dice game, 4-5 

Direct command output, library, 5-1 
Division, 2-5 
DO command, 2-8, 3-5 


EAE number accuracy, 2-4 
E format, 2-4 
Equations, 4-6 

ERASE command, 2-7, 2-10, 2-11, 3-4 
ERASE COMMON command, 5-1, 5-5 
Error detection, 2-9 
Error diagnostics, B-l 
Errors , 

syntax, 2-2 
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Errors (cont.)/ 
typing, 2-9 

Examples of FOCAL programs, 4-1 
Exponential function (FEXP) , 
3-14 

Exponentiation, 2-4, 2-5, 2-12 
Expressions, 2-5 


File initialization, 
data, 7-1 
library, 5-1 
File termination, 
data, 7-2 
library, 5-2 
Floating-point 
arithmetic, 3-9 
format, 2-3, 2-4, 3-14 
hardware, 1-1 
FNEW functions, 6-3 
FOR command, 3-8 
Formula evaluation for circles 
and spheres, 4-2 
FORTRAN library, 1-1 
FOCAL language, 2-1 
Functions , 

FNEW, 6-3 
internal, 3-13 
names of, 2-1 
trigonometric, D-l 
user-defined, 6-1 


GO command, 2-8, 3-5 
GOTO command, 2-8, 3-5, 3-7 
Group output, library, 5-2 


Hardware, 1-1 


IF command, 3-7 
IF statement, 3-6 
Indirect commands, 2-7 
Initialization of library file, 
5-1 

Input commands, 
data, 7-2 
library, 5-3 

Integer part function (FITR) , 
3-14 

Intercept and plot of two 
functions, 4-11 

Interest payment program, 4-10 
Internal functions, 3-13 


Length of program, C-l 
LIBRARY CLOSE command, 5-3 
Library .DAT slot usage, 1-2, 5 
Library files, 

initialization, 5-1 
output, 5-1 
termination, 5-2 
Library, FORTRAN, 1-1 
LIBRARY WRITE command, 5-3 
Line deletion, 2-10 
Line numbers, 2-7 
Linking loader, 1-1 
Loading, 1-1, 1-3 
Logarithm function (FLOG) , 3-16 
Looping process, 4-2 


Matrices, 4-6 

MODIFY command, 2-11, 3-10 
Multiplication, 2-5 


Names of 

symbols, 2-1 
functions, 2-1 
Nested expressions, 2-5 
Non-subscripted variable, 5-4 
Number representation in TYPE 
command, 2-1 

Numbers, alphanumeric, 2-11 
Number sign (#) usage, 2-7 


One-line plotting, 4-4 
Operators, arithmetic, 2-5 
Output , 

data files, 7-1 
library files, 5-1 
Output format, 2-2 


Parentheses, 2-5, 3-6 
Percent sign (%) usage, 2-2, 3- 
Plotting, 4-4 
Program chaining, 5-5 
Program length, C-l 
Program output, 
data, 7-1 
library, 5-2 


Question marks in program, 2-9 
Quotation marks, 4-1 
in command string, 3-2 
in text output, 2-7 


Leading zeros, 2-2 
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Random number generator function 

(FRAN) , 3-14 
Restart, 1-2 
RETURN command, 3-8 
Rounding, 2-3, 4-1 
RUBOUT, 2-9 


Saving programs, 1-3 
Schroedinger equation solver , 

4- 13 

Scope routine example, 6-1 
Semicolon in IF statement, 3-6 
SET command, 2-1, 3-4 
Sign part function (FSGN) , 3-13 
Sine function (FSIN) , 3-15 
Single line output, library, 

5- 2 

Spheres, formula evaluation for 
circles and, 4-2 
Square brackets, 2-5 
Square root function (FSQT) , 
3-13 

Statement, IF, 3-6 

Subroutines, 3-6 

Subscripted variables, 2-6, 4-6 

Subtraction, 2-5 

Symbol names, 2-1 

Symbols, arithmetic, 2-5 

Symbol table, 2-6 

Symbol table values, 3-11 

Syntax errors, 2-2 


Table generation using functions , 
4-1 

Termination of 
data files, 7-2 
library files, 5-2 
Text output, 2-7 
Trace feature, 2-9, 3-12 
Trailing zeros, 2-2 
Trigonometric functions, D-l 
TYPE command, 2-1, 3-1, 7-1 


User-defined functions, 6-1 


Variables, 

nonsubscripted, 5-4 
subscripted, 2-6, 4-6 


WRITE command, 2-9, 2-10, 3-3, 
7-1 


Zeros in output format, 2-2 
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Problem Report (SPR) form. 
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Please make suggestions for improvement. 
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